Well What I want to do is to find anything beginning with TC and cut
and paste it one cell to the left of where its found. Right now I've
done this so far.

Sub SortCells()
Dim rng As Range
x = ("TC*")
With Worksheets("VVGI.GO")
Set rng = .Range("B1:B24518").Find(x.Value)
If Not rng Is Nothing Then
rng.Offset(0, -1).Value = .Cells(rng.Row, 1)
End If
End With
End Sub

Unfortunately there is a problem with the Set rng and alos with the
offset

Somebody want to look at this, give me some tips?


--
Taru
------------------------------------------------------------------------
Taru's Profile: http://www.excelforum.com/member.php...o&userid=35494
View this thread: http://www.excelforum.com/showthread...hreadid=553332