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