Thanks Rob,
This is a bit shorter than Jims, but yours copies the "Text" in Col. "A"
and not the data from Col. "B" - any ideas why?

Richard

"Rob Edwards" wrote:

Sub test()
Range("A2").Select 'Set for start range
Do Until ActiveCell = ""
If ActiveCell = "XXX" Then 'Test to find
vText = ActiveCell
ActiveCell.Offset(-1, 2) = vText
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Rob Edwards

Always look on the bright side of life!

*** Sent via Developersdex http://www.developersdex.com ***