リストボックスからシート選んで削除したい

質問

Excel2007でマクロ作成中の初心者です。
以下のマクロを実行すると、最終行でコンパイルエラーがでて
「参照が不正または不完全です」と表示され削除ができません。
どうしたら、削除できるでしょうか。

Private Sub 顧客削除_Click()
Dim i As Integer
Dim btn
Dim name As String
With 顧客リスト
For i = 0 To .ListCount - 1
If .Selected(i) Then
name = .list(i) '選択されたリストを変数に格納
btn = MsgBox("本当に、" & name & "さんを削除していいですか？", _
vbYesNo + vbQuestion, "削除の確認をする")
End If
Next i
End With
If btn = vbNo Then
Exit Sub
End If
'Worksheets(Mid(.list(.ListIndex - 0), InStr(.list(.ListIndex - 0), " ") + 1)).Delete
'ActiveWorkbook.Sheet.[(List(i))].Delete
'ActiveWorkbook.Sheets(name).Delete
Worksheets(Split(.list(.ListIndex - 0), " ")(1)).Delete '
End Sub

回答No.1

n-jun · ベストアンサー

だって.ListIndex があるのに

With～End Withの外に出ちゃっているじゃないですか。。。

Worksheets(Split(.list(.ListIndex - 0), " ")(1)).Delete '
End With 'この位置にいれないと。。。
End Sub

お礼

もう一度やりなおしましたら、できました。ありがとうございました。

補足

申しわけございません。以下のマクロ実行で
「インデックスが有効範囲にありません」エラーがでます。
エラーが出ない用にしたいです。
Private Sub 顧客削除_Click()
Dim i As Integer
Dim btn
Dim name As String

With 顧客リスト
For i = 0 To .ListCount - 1
If .Selected(i) Then
name = .list(i) '選択されたリストを変数に格納
btn = MsgBox("本当に、" & name & "さんを削除していいですか？", _
vbYesNo + vbQuestion, "削除の確認をする")
End If
Next i
ActiveWorkbook.Sheets(name).Delete
'Worksheets(Split(.list(.ListIndex - 0), " ")(1)).Delete '
End With
If btn = vbNo Then
Exit Sub
End If
End Sub