this is perfect. Thank You.

Can you tell me if I was searching for 34000 and wanted to delete the entire
row with that how would I change this?

"GTVT06" wrote:

hello, try this

Sub test()
Range("A1").Select
Cells.Find(What:="34000", After:=ActiveCell, LookIn:=xlFormulas,
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Copy ActiveCell.Offset(0, 2)
ActiveCell.Font.Bold = True
End Sub