Excel Vba Problemas con "Set FoundCell=activesheet.cell..."

Hola Tengo un problema cuando busco una palabra EN UNA HOJA.. Tengo las palabras CRED-1 AL CRED-20 en cada celda de mi HOJA.. Mi macro busca "CRED-1" en mi hoja. SI se encuentra la palabra, pero si borro la celda "CRED-1" ME SELECCIONA LA CELDA DONDE SE ENCUENTRA "CRED-10" y no quiero que lo seleccione.. Quiero que me aparezca el MsgBox ("Lo Siento, No Se Encontró Celda CRED-" & Z)

aquí esta mi pequeña macro

FOR Z = 1 TO 20

PAGO = "CRED-" & Z
Set FOUNDPAGO = ActiveSheet.Cells.Find(PAGO)
If FOUNDPAGO Is Nothing Then
MsgBox ("Lo Siento, No Se Encontró Celda CRED-" & Z)
End
Else
FOUNDPAGO.Select
ActiveCell.Offset(1, 0).Select...

Saludos!...