Mostrar mensaje al seleccionar hoja

escribe este procedimiento en el codigo Thisworkbook
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "Hoja2" Then MsgBox "Mensaje"
End Sub

Alguien sabe como crear un mensaje que aparezca al

momento

de seleccionar una hoja determinada en un libro.
Gracias al que pueda colaborarme.
.

Otra alternativa que tambien funciona es la siguiente: Haz click con el
boton derecho del mouse en la pestaña de la hoja, selecciona Ver Codigo y
pega lo siguiente en el modulo de la hoja:

Private Sub Worksheet_Activate()
MsgBox "Has seleccionado la Hoja: " & ActiveSheet.Name
End Sub

Saludos,

David Canales


"nico mexico" wrote in message
news:23adc01c45eaf$2523d6d0$

escribe este procedimiento en el codigo Thisworkbook
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "Hoja2" Then MsgBox "Mensaje"
End Sub

>Alguien sabe como crear un mensaje que aparezca al
momento
>de seleccionar una hoja determinada en un libro.
>Gracias al que pueda colaborarme.
>.
>