Hi
I think you will have to give a little more info on what you have at present
ie is it anything like this
Code:
Dim FN As Long
FN = 123
Cells.Find(What:=FN, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
If not please give example and/or more explanation.
MTB