Place this in a module (and modify the rows, columns and limit):

Sub FindZip()
z = InputBox("What is the ZIP code?", "ZIP")
For i = 1 To 10
If Cells(i, 1).Text = z Then
MsgBox "YES", vbExclamation, "ZIP found?"
t = True
Exit For
End If
Next
If Not t Then MsgBox "NO", vbExclamation, "ZIP found?"
End Sub


--
raypayette


------------------------------------------------------------------------
raypayette's Profile: http://www.excelforum.com/member.php...o&userid=29569
View this thread: http://www.excelforum.com/showthread...hreadid=570499