Sub ir_a_hoja()
On Error GoTo errores
Set celda = Range("a1")
If Not IsEmpty(celda.Value) Then
Sheets(celda).Activate
End If
Exit Sub
errores:
MsgBox Error
End Sub