サンプルファイル

---

Private Sub CommandButton1_Click()


If ListBox1.ListIndex >= 0 Then


If Worksheets.Count >= 2 Then 'シートの数が2以上のとき

Worksheets(ListBox1.Text).Delete 'シートを削除する
Call uFInit

Else

MsgBox "削除できません。"


End If



Else

MsgBox "シート名を選択してください。"

End If



End Sub



Private Sub UserForm_Initialize()


Call uFInit


End Sub
Sub uFInit()



On Error Resume Next

ListBox1.Clear

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


ListBox1.ListIndex = 0


End Sub