corregir macro que busca un determinado número

[soda1206]

Hola estimados foreros, esta vez tengo el siguiente problemita, tengo esta macro que busca un N° determinado, el cual ingreso en un box de mensaje que se dispara al presionar botón "Buscar N°", este box de mensaje tiene dentro 2 botones: "aceptar" o "cancelar" la operación, el problema que tengo es que al presionar "aceptar" o "cancelar" sin ingresar algún dato (queda vacío) arroja un mensaje con problema de fórmula al presionar "aceptar" y una ventana de error en caso de presionar "cancelar", ambos casos suceden si no ingreso algún número como les mencioné, necesito que salga de la operación si presiono "cancelar" y si presiono aceptar sin ingresar dato que simplemente siga la misma ventana hasta ingresar un número válido...si no existe el número que salga un mensaje que diga "NO Existe N°", adjunto el archivo con la macro que tengo hasta el momento.

buscanumero_ayudaexcel.xlsm

[Antoni]

Sub BuscaNumero()
Dim Celda As Range, Dato As Variant
PedirNúmero:
   Dato = Application.InputBox("Ingrese N° a buscar", "Buscar Número")
   If Dato = "Falso" Then Exit Sub
   If Not IsNumeric(Dato) Then
      MsgBox "El dato a buscar debe ser un número", vbInformation
      GoTo PedirNúmero
   End If
Seguir:
   Set Celda = Columns("C").Find(Dato, , , xlWhole)
   If Not Celda Is Nothing Then
      Celda.Select
      Range("F3") = Dato
   Else
      MsgBox "El Nº buscado " & Dato & " no existe", vbInformation
   End If
End Sub

 

[soda1206]

Buen día estimado @Antoni, muchas gracias por tu apoyo, acabo de probar tu código y es mucho mejor de lo que necesitaba, te agradezco nuevamente tu generoso aporte. Doy tema por cerrado y hasta una próxima. 

 

Gracias!!