H o la:
Pon la siguiente macro en los eventos de tu hoja.
Cambia en la macro "D4" por la celda donde tienes la lista de validación.
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Target.Row > 100 Then Exit Sub
Set celda = Range("D4")
If Not Intersect(Target, celda) Is Nothing Then
hoja = celda.Value
If hoja = "" Then Exit Sub
existe = False
For Each h In Sheets
If LCase(h.Name) = LCase(hoja) Then
existe = True
Exit For
End If
Next
If existe = False Then
MsgBox "El nombre seleccionado no es un nombre de hoja"
Exit Sub
End If
Sheets(hoja).Select
End If
End Sub
Sigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- En el panel del lado derecho copia la macro
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias