リストボックスに表示後、選択したシートを削除する

質問

初歩的な質問で恐縮ですが、ご教示ください。
リストボックスにすべてのシート名を表示させ、選択したシートのみ削除するマクロを作成したいのですが、エラーメッセージ「オブジェクトが必要」と表示されエラーとなります。どのように変更したらよいのでしょうか？　

Private Sub CommandButton1_Click()
'Selectedプロパティを使って、選択されているかどうかを判断して、選択されていたらメッセージボックスにその内容を表示します。
'このメッセージボックスを表示される全シートのうち、選択したシートのみ、削除処理する。

Dim i As Integer

With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
MsgBox .List(i)
End If
Next i
End With

' 選択シート削除
'「はい」「いいえ」のアイコンを表示する
Btn = MsgBox("選択されたシートが全て消去されます。元にもどりません　いいですか？", vbYesNo + vbQuestion, "確認")

'「いいえ」の場合は終了します。
If Btn = vbNo Then
Exit Sub
End If

'リストのうち、選択したシートだけ削除する
'オブジェクトが必要?
Workbook.Sheet.[(List(i))].Delete

End Sub

回答No.3

xls88 · ベストアンサー

下記のようにしてみてください。

Private Sub CommandButton1_Click()
Dim i As Integer
Dim btn
Dim wsname As String

With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
wsname = .List(i)　'選択されたリストを変数に格納
MsgBox wsname
End If
Next i
End With

　'↓無くてもExcel本体が警告してくれますがどうでしょうか？
　'----------------ここから----------------------------------
btn = MsgBox("選択されたシートが全て消去されます。元にもどりません　いいですか？", _
vbYesNo + vbQuestion, "確認")

If btn = vbNo Then
Exit Sub
End If
　'----------------ここまで----------------------------------

'Workbook.Sheet.[(List(i))].Delete
ActiveWorkbook.Sheets(wsname).Delete

End Sub

ところで、ListBox1で複数のリストが選択できるのですか？
複数選択された場合、上手くいくかどうか未検証です。

お礼

ありがとうございました。
休日の貴重な時間を割いていただいてありあがとうございました。
OKですうまく動作しました。
複数行はできませんでしたので、とりあえず　ListBox1.MultiSelect = 2　として単数行で完結しました。

回答No.4

hige_082

これではダメ？

Private Sub CommandButton1_Click()
MsgBox ListBox1.Value
If MsgBox("選択されたシートが全て消去されます。元にもどりません　いいですか？", vbYesNo + vbQuestion, "確認") = vbNo Then Exit Sub
ActiveWorkbook.Sheets(ListBox1.Value).Delete
End Sub

お礼

ありがとうごさいます。
こんなシンプルなマクロもありですね
早速ためしてみます。

回答No.2

xls88

＞回答番号：No.1 この回答への補足
修正されたコード全文を提示していただけないでしょうか。

補足

下記のとおりです。よろしくお願いします。
Private Sub CommandButton1_Click()
'Selectedプロパティを使って、選択されているかどうかを判断して、選択されていたらメッセージボックスにその内容を表示します。
'このメッセージボックスを表示する部分を、印刷処理や削除処理にするなどして応用することができます。

Dim i As Integer

With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
MsgBox .List(i)
End If
Next i
End With

' 選択シート削除
'「はい」「いいえ」のアイコンを表示する
Btn = MsgBox("選択されたシートが全て消去されます。元にもどりません　いいですか？", vbYesNo + vbQuestion, "確認")

'「いいえ」の場合は終了します。
If Btn = vbNo Then
Exit Sub
End If

'リストの選択したシートだけ削除する
'オブジェクトが必要?
'ActiveWorkbook.Sheet.[(List(i))].Delete

wsName = List(i)
ActiveWorkbook.Sheets(wsName).Delete

End Sub

回答No.1

xls88

変数にシート名を格納して
wsName = .List(i)
削除するようにすればどうでしょうか。
ActiveWorkbook.Sheets(wsName).Delete

補足

再度の質問で恐縮ですが
回答のとおり修正すると
コンパイルエラー「SubまたはFunctionが定義されていません」と表示されるので、色々試行しましまたがエラーは直りません。どうしたら？