Option Explicit

Private Sub Lab_Refresh_Click()
    myRefresh
End Sub

Private Sub ListBox1_Click()
    If UserForm_EnableEvents = False Then Exit Sub
    On Error Resume Next
    Sheets(CStr(ListBox1.Value)).Select
End Sub

Private Sub UserForm_Initialize()
    'If UserForm_EnableEvents = False Then Exit Sub
    myRefresh
    
    flagPeriodicalShow = True
'    UserFormPeriodicalShow
End Sub

Private Sub UserForm_Terminate()
    flagPeriodicalShow = False
End Sub

Private Sub myRefresh()
    Dim ii As Long
    UserForm_EnableEvents = False
    
    With Me.ListBox1
        For ii = 1 To .ListCount
            .RemoveItem 0
        Next
    End With
    With ActiveWorkbook
        For ii = 1 To .Sheets.Count
            Me.ListBox1.AddItem .Sheets(ii).Name
            '.Sheets(ii).Name = "sss" & ii
            If .Sheets(ii).Index = ActiveSheet.Index Then
                Me.ListBox1.Selected(ii - 1) = True
            End If
        Next
    End With
    'ii = ii - 1
    If ii > 51 Then ii = 51
    Me.ListBox1.IntegralHeight = False
    Me.ListBox1.Height = 9.7 * ii
    Me.Height = 9.7 * ii + 35


    UserForm_EnableEvents = True
End Sub