Macro que busque un valor e indique si este no existe

[MaKus]

poco para que realizara lo que necesito, lo que dicha macro hace es buscar valores en la hoja de trabajo y cuando los encuentra rellen la celda, pero cuando ingresa un valor que no existe en la hoja me da un error 91 y se detiene la macro, lo que me gustaria es que en vez de salir de la macro me de un mensaje indicando que el valor no existe y continue la ejecucion de la macro, no se si esto sea posible, espero y agradezco su ayuda.

Agrego el codigo con el que estoy trabajando:

Sub BuscaResalta()
'
' BuscaResalta Macro
'

Dim valor As String, celda1 As String, celda2 As String
Dim inicio As String, largo1 As String, celda3 As String



celda3 = 1
Do Until celda3 = [R1]
valor = InputBox("Ingrese Numero de Inventario: ")
largo1 = Len(valor)
Cells.Find(What:=valor, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
' If valor Is Nothing Then MsgBox ("Numero no registrado") Else valor Activate
If valor = "" Then Exit Sub

Application.ScreenUpdating = True


celda1 = ActiveCell.Address
celda2 = 0

Do While celda2 <> celda1
inicio = InStr(ActiveCell, valor)
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With

Cells.FindNext(After:=ActiveCell).Activate
celda2 = ActiveCell.Address
Loop
Loop

End Sub

Espero que me puedan ayudar, gracias.!!!!

Marco