error en imput box

[GEMO]

tengo un imput box que al comparar un registro ingresado me abre un archivo diferente pero al darle cancelar o cerrar el imput box me marca error "1004" y me manda a las lineas donde esta la sentencia para abrir el archivo espero me ayuden gracias
esta es parte de mi codigo
Private Sub cmdprimero_Click()
Dim rango As Range
Dim a As Integer

lblbox.Caption = InputBox("Introdusca el numero de registro del alumno", "Buscar reportes", "Registro")
Range("a1") = lblbox.Caption


For Each rango In ActiveSheet.Range("aa1:aa25")

If rango = Range("a1") Then
Range("a2") = rango

End If

Next


If Range("a2") = Range("a1") Then
Workbooks.Open Filename:= _
"c:\Reportes\primero\" & [a1] & ".xls"
Else
lblerror.Caption = MsgBox("Presione el boton de grado nuevamente", vbInformation, "Registro no encontrado")

End If

End Sub

[3pies]

Tú código es correcto, pero si no encuentra el fichero con el mismo nombre que el de la celda A1, entonces es cuando te tira un error. Si tienes el fichero en esa carpeta, el código te funcionará correctamente.

Para solucionarlo, en el caso de que el fichero no esté creado en esa carpeta (c:\Reportes\primero\) una opción es omitir los mensajes de error, añadiendo esta línea en tu macro (esta línea la puedes añadir donde desees, pero antes de abrir el fichero):

Código:

On Error Resume Next

Salu2

[GEMO]

Gracias es bueno contar con el apoyo de todos los del foro