Thanks for the fast response.
On Dec 18, 11:31 am, "Trevor Shuttleworth" <Tre...@Shucks.demon.co.uk>
wrote:
> Sub testing()
> For Each cell In Columns("B").SpecialCells(xlCellTypeConstants)
> If cell.Value Like "*Total*" Then
> cell.Offset(0, -1).Value = cell.Value
> cell.Value = ""
> End If
> Next cell
> End Sub
>
> Regards
>
> Trevor
>
> "dd" <dd2qu...@gmail.com> wrote in messagenews:1166469821.614265.113530@j72g2000cwa.googlegroups.com...
>
>
>
> > Hi,
> > Below is a macro to move any cells that contain the word Total in
> > Column A to Column B.
> > But how would I move the word total from column B to column A? Thanks
>
> > Sub testing()
> > For Each cell In Columns("A").SpecialCells(xlCellTypeConstants)
> > If cell.Value Like "*Total*" Then
> > cell.Offset(0, 1).Value = cell.Value
> > cell.Value = ""
> > End If
> > Next cell
> > End Sub- Hide quoted text -- Show quoted text -