I am using the following code to Goto the cell entered in cell "D3". It works
if there is a perfect match. If they do not match the code stops on line 3
with an error. What should be added to the code so that it will work when not
found and stay in cell "D3"? (With a pop of box "Number not Found" or
something like that)

The column has numbers like 4512 and 4512-1 and 4512-01 to match.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$3" Then Exit Sub
Columns(2).Find(Target).Select
End Sub

Thank for your help,

Bob