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

質問

Excel2007でマクロ作成の初心者です。
リストボックスの選択項目のワークシートを削除したいのですが、
「インデックスが有効範囲にありません。」のエラーが発生し、
先に進めません。どうしたらよろしいでしょうか？
’---------------------
Private Sub 顧客削除_Click()
Application.ScreenUpdating = False
Unload Me
Unload DS請求フォーム
Dim i As Integer
With 顧客リスト
For i = 0 To .ListCount - 1
If .Selected(i) Then
' Worksheets(.list(.ListIndex)).Delete
Worksheets(Split(.list(.ListIndex - 0), " ")(1)).Activate '←ここでエラー発生
ActiveSheet.Delete
End If
Next i
End With
MsgBox "選択の顧客を削除しました。"
End Sub
’-------------------------
Private Sub UserForm_Initialize()
Workbooks("請求.xls").Activate
Dim i As Integer
Const EXCEPT_NAME = "経理●一覧●基本●"
For i = 1 To Worksheets.Count
If InStr(EXCEPT_NAME, Worksheets(i).Name & "●") = 0 Then
顧客リスト.AddItem i & " " & Worksheets(i).Name
End If
Next i
End Sub
’----------------------

回答No.1

n-jun · ベストアンサー

シート名がどんな感じなのかわかりませんが、
もしかしてシート名の中に半角スペースを使っていませんか？

それだったら

Worksheets(Split(.list(.ListIndex - 0), "_")(1)).Activate

顧客リスト.AddItem i & "_" & Worksheets(i).Name

ともに区切り文字でアンダーバー"_"を使うとかでも良いし、

Worksheets(Mid(.List(.ListIndex - 0), InStr(.List(.ListIndex - 0), " ") + 1)).Delete

こちらでいけそうな気はしますけど。

お礼

Worksheets(Mid(.List(.ListIndex - 0), InStr(.List(.ListIndex - 0), " ") + 1)).Delete
これで一発で削除できました。今日は３回もご回答いただき、何とお礼もうしあげていいかわかりません。あなたさまの博識に助けられ本当に感謝いたします。今後ともよろしくお願いします。