thanks for the reply,
here is the macro i recorded:
Cells.Find(What:="516916", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Rows("179:179").Select...