Try this for column B

Sub Find_First()
Dim FindString As String
Dim Rng As Range
FindString = "Grand Total"
Set Rng = Range("B:B").Find(What:=FindString, _
After:=Range("B" & Rows.Count), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then Application.Goto Rng.Offset(0, -1), True
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"KimH" wrote in message ...
Hi,

I need to look at a column and search for the cell that
contains "Grand Total" and select the cell that is to the
left of that cell. Is there a way to do this? Thanks