So I have the following code
dim FoundCell as range
Set FoundCell = Columns("Q").Find(What:="F", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
some code later the range...