Duda con Cells.Find(...)

[darkhylian]

Hola, tengo una duda.
Lo que pasa es que estoy uilizando Cells.Find para buscar unos registros pero quisiera hacer una condicion en la que apareciera "REGISTRO NO ENCONTRADO" en la celda correspondiente al registro. El problema es que no se como hacer la negacion del Cells.Find :( ...

Este es el codigo completo solo para que se den una idea:



Sub status_act()

' BUSCAR EL NUMERO PARA OBTENER ESTATUS ACTUAL ::::::::::::::::::::::::

fila = 2 'Variable para iniciar en el renglon numero 2
Do While Not IsEmpty(Cells(fila, 2)) 'Ciclo para repetir acciones mientras haya celdas ocupadas

Cells(fila, 2).Select 'Selecciona la celda con el telefono
numero = Cells(fila, 2).Value 'Se almacena el valor de la celda en la variable numero


'ABRIR EL ARCHIVO DE EXCEL DONDE ESTAN LOS ESTATUS Y BUSCAR EL NUMERO
Windows("sia-mar-oct-11 macro-mary.xlsx").Activate


'BUSCA EL NUMERO DE TELEFONO ALMACENADO EN LA VARIABLE "NUMERO"
Cells.Find(What:=numero, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate



'UNA VES ENCONTRADO EL TELEFONO, SE DESPLAZA 3 CELDAS HACIA LA DERECHA Y SELECCIONA LA CELDA DE STATUS

ActiveCell.Offset(0, 3).Select


Application.CutCopyMode = False

Selection.Copy 'COPIA EL STATUS


'VUELVE AL PRIMER ARCHIVO DE EXCEL Y PEGA EL ESTATUS ACTUAL
Windows("REPORTE_VENTAS_B&B_CALL_CENTER_TOPCOM 01-10-11 MACROS.xlsm").Activate


Cells(fila, 26).Select 'Selecciona la celda donde va el estatus actual
ActiveSheet.Paste 'Pega el estatus actual




'INCREMENTA LA VARIABLE FILA EN 1 PARA QUE EN LA SIGUIENTE VUELTA DEL CICLO BUSQUE EL SIGUIENTE NUMERO
fila = fila + 1

Loop

End Sub