CORREGIR error de subíndice de intervalo

Si la hoja se llamaba "algo" y entonces en temporal.[A10] tiene el texto "algo", luego le cambias el nombre de "algo" a "otro", y luego presionas F3, lo que hace la macro es tratar de seleccionar la hoja "algo", pero ya le cambiaste el nombre, por eso te envía el error.

Puedes solucionarlo de varias formas.

1. Si le estás cambiando el nombre a "algo" a "otro", entonces tienes que ir a  temporal.[A10] y poner el texto "otro".

2. En la macro wao, pon la instrucción:

On error Resume Next

De esa forma si la hoja no existe no te enviará error, pero tampoco seleccionará ninguna hoja.

3. En la macro wao validar si la hoja "algo", si existe: seleccionar la hoja, si no existe: enviar un msg de error.

Aplica la opción que desees.

S a l u d o s

¿Y no me puedes modificarlo? ¿En vez de que sea como antes que sea algo así?

 Sheets("temporal").[a10] = ActiveSheet.CODEName

Que arroje el nombre interno de la hoja y lo ponga en A10 para luego seleccionarla con la modificación de este código:

Sub SeleccionarAnterior()
'Por.Dante Amor
hoja = Sheets("temporal").[a10]
If hoja <> "" Then
Sheets(hoja).Select
Else
MsgBox "No hay hoja anterior"

End If
End Sub

¿Funcionaria?

Esto está bien:

Sheets("temporal").[a10] = ActiveSheet.CODEName

La siguiente macro quedaría así:

Sub SeleccionarAnterior()
'Por.Dante Amor
    For Each h In Sheets
        If h.CodeName = Sheets("temporal").[a10] Then
            Set lahoja = h
            Exit For
        End If
    Next
    If Not lahoja Is Nothing Then
        lahoja.Select
    Else
        MsgBox "No hay hoja anterior"
    End If
End Sub

S a l u d o s

Desde la mañana estoy checando este código, estaba viendo uno que también tu me hiciste e intente adaptarlo si me funciono..

'On Error Resume Next
hoja = InputBox("ANOTA EL NÚMERO DE VENDEDOR", "Panificadora el RETORNO", Default:=Range("A10"))
If hoja = "" Then Exit Sub
existe = False
For Each h In Sheets
If UCase(h.Name) = UCase(hoja) Then
existe = True
Exit For
End If
Next
If existe Then
Sheets(hoja).Select
End If

Pero el que me acabas de pasar esta más que excelente... ME PUEDES AYUDAR EN LA OTRA PREGUNTA QUE TE COMENTE SIGUE ABIERTA :C