Populating a Listbox, Worksheet Names as Variables

Sub sheetStuff()
    For n = 1 To ActiveWorkbook.Sheets.Count
        UserForm1.ListBox1.AddItem ActiveWorkbook.Sheets(n).Name
    Next
    UserForm1.Show
End Sub

Private Sub UserForm_Initialize()

Dim SheetData() As String
Set OriginalSheet = ActiveSheet
ShtCnt = ActiveWorkbook.Sheets.Count
ReDim SheetData(1 To ShtCnt, 1 To 2)
sHTnum = 1

For Each Sht In ActiveWorkbook.Sheets
If Sht.Name = ActiveSheet.Name Then ListPos = sHTnum - 1
SheetData(sHTnum, 1) = Sht.Name
SheetData(sHTnum, 2) = Sht.Range("A1").Value
sHTnum = sHTnum + 1
Next Sht

With ListBox1
.ColumnCount = 2
.ColumnWidths = "150 pt; 50 pt"
.List = SheetData
.ListIndex = ListPos
End With

End Sub

Private Sub CommandButton1_Click()
    Dim i As Integer, sht As String
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            sht = ListBox1.List(i)
        End If
    Next i
    Sheets(sht).Activate
    End
End Sub

Private Sub CommandButton2_Click()
    Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ListBox1.AddItem (ws.Name)
    Next ws
End Sub

Private Sub UserForm_Initialize() 
    Dim SheetData() As String 
    Set OriginalSheet = ActiveSheet 
    ShtCnt = ActiveWorkbook.Sheets.Count 
    ReDim SheetData(1 To ShtCnt, 1 To 4) 
    ShtNum = 1 
    For Each Sht In ActiveWorkbook.Sheets 
        ListPos = ShtNum - 1 
        SheetData(ShtNum, 1) = Sht.Name 
        ShtNum = ShtNum + 1 
    Next Sht 
    With ListBox1 
        .List = SheetData 
    End With 
End Sub

Option Explicit
Public OriginalSheet As Object
 
Private Sub UserForm_Initialize()
Dim SheetData() As String
Dim ShtNum As Integer
Dim ShtCnt As Integer
Dim Sht As Object
Dim LisPost As Integer
 
Set OriginalSheet = ActiveSheet
ShtCnt = ActiveWorkbook.Sheets.Count
ReDim SheetData(1 To ShtCnt, 1 To 4)
 ShtNum = 1
 For Each Sht In ActiveWorkbook.Sheets
    If Sht.Name = ActiveSheet.Name Then _
    LisPost = ShtNum - 1
SheetData(ShtNum, 1) = Sht.Name
Select Case TypeName(Sht)
    Case "WorkSheet"
    SheetData(ShtNum, 2) = "Feuil"
    SheetData(ShtNum, 3) = Application.CountA(Sht.Cells)
End Select
   ShtNum = ShtNum + 1
    Next Sht
With ListBox1
    .ColumnWidths = "30 pt;30 pt; 40 pt;50 pt"
    .List = SheetData
    .ListIndex = LisPost
End With
End Sub
 
Private Sub ListBox1_Click()
    Sheets(ListBox1.Value).Activate
End Sub

Sub Go2sheet()
myShts = ActiveWorkbook.Sheets.Count
For i = 1 To myShts
myList = myList & i & " - " & ActiveWorkbook.Sheets(i).Name & " " & vbCr
Next i
Dim mySht As Single
mySht = InputBox("Select sheet to go to." & vbCr & vbCr & myList)
Sheets(mySht).Select
End Sub

Sub SelectSheet()
    UserForm1.Show
End Sub

Option Explicit

Public OriginalSheet As Object


Private Sub UserForm_Initialize()
    Dim SheetData() As String
    Dim ShtCnt As Integer
    Dim ShtNum As Integer
    Dim Sht As Object
    Dim ListPos As Integer
    
    Set OriginalSheet = ActiveSheet
    ShtCnt = ActiveWorkbook.Sheets.Count
    ReDim SheetData(1 To ShtCnt, 1 To 4)
    ShtNum = 1
    For Each Sht In ActiveWorkbook.Sheets
        If Sht.Name = ActiveSheet.Name Then _
          ListPos = ShtNum - 1
        SheetData(ShtNum, 1) = Sht.Name
        ShtNum = ShtNum + 1
    Next Sht
    With ListBox1
        .ColumnWidths = "60 pt"
        .List = SheetData
        .ListIndex = ListPos
    End With
End Sub

Private Sub cmdCancel_Click()
    OriginalSheet.Activate
    Unload Me
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Call cmdOK_Click
End Sub

Private Sub cmdOK_Click()
    Dim UserSheet As Object
    Set UserSheet = Sheets(ListBox1.Value)
    If UserSheet.Visible Then
        UserSheet.Activate
    Else
        If MsgBox("Unhide sheet?", _
          vbQuestion + vbYesNoCancel) = vbYes Then
            UserSheet.Visible = True
            UserSheet.Activate
        Else
            OriginalSheet.Activate
        End If
    End If
    Unload Me
End Sub