VBA cell.find

[sswcharlie]

I have this code recorded by XL. Works ok.
**
Cells.Find(What:="dd", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
End Sub

**



In the first part - (What="dd",
I want the macro to read Cell G1 and look for text that is in that cell.. Which could be dd or other text as G1 changes often.


Thanks

Charlie