Visual Basic para Aplicaciones - Macro en excel que dependiendo del valor una celda te envié a una hoja determinada

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