Sorry, snb, I'm not completely understanding. I get that my subs have a different name and your code is to try and address this, but I get a compile error: variable not defined on "it".

' Toggle height of the userform

Private Sub UserForm_Initialize()
For Each it In Sheets
            c00 = c00 & " " & it.name
  Next

      ListBox1.List = Split(Trim(c00))
    Dim sht
    dHeight = Me.Height
    For Each sht In ThisWorkbook.Sheets
        Me.ListBox1.AddItem sht.name
    Next sht
End Sub