VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "ContClass1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public WithEvents listEvent As MSForms.ListBox
Attribute listEvent.VB_VarHelpID = -1
Public WithEvents lblEvent As MSForms.Label
Attribute lblEvent.VB_VarHelpID = -1

Private Sub lblEvent_Click()
    ThisWorkbook.FollowHyperlink ("https://contabilizalo.com/promo/curso-excel-macros-vba")
End Sub

Private Sub listEvent_Click()
    Dim visibleSheet As Byte
    
    If Sheets(listEvent.Value).visible = xlSheetHidden Then
        visibleSheet = MsgBox("La hoja se encuentra oculta!, ¿desea volverla visible?", Buttons:=vbExclamation + vbApplicationModal + vbOKCancel)
        If visibleSheet = 1 Then
            Sheets(listEvent.Value).visible = xlSheetVisible
        Else
            Exit Sub
        End If
        
    End If

    Sheets(listEvent.Value).Activate
End Sub