サンプルファイル

---

Private Sub UserForm_Initialize()



For i = 1 To Worksheets.Count 'シートの数だけ繰り返す
　ListBox1.AddItem Worksheets(i).Name '取得したシート名をリストボックスへ
Next



End Sub