Si aprietas cancelar se cierra el inputbox y la variable pidecelula queda en blanco.
Con mirar eso tienes suficiente.
Puedes incluso asegurarte de que la longitud del número es suficiente.
PideCelula debe ser un string. Si es una variable numérica puedes hacer esto:
Código :
Ver originalDim Respuesta As String
Respuesta = Trim$(inputbox("ingrese su nº de ducumento"))
If Len(Respuesta) > 0 Then
PideCelula = Val(Respuesta)
'haces la consulta
End If