ブックの中の１枚だけ選んで印刷したい

質問

win7とＥxceｌ2007でマクロ作成中の初心者です。

以下、ファイルの中の複数シートを印刷できました。
Private Sub 請求書印刷_Click()
Application.ScreenUpdating = False
Unload Me
請求書の印刷100 '請求書印刷
Worksheets(1).Select
ActiveWindow.DisplayHorizontalScrollBar = False
End Sub

Sub 請求書の印刷100() '
Dim i As Integer
For i = 1 To Worksheets.Count - 8
With Worksheets(i)
If .Range("F11").Value <> 0 Then
.PageSetup.PrintArea = "$B$1:$U$44"
.PrintOut
End If
End With
Next i
Worksheets(1).Activate
End Sub
------------------------------------
今度は、同一のファイルから、指定の単一のシートを印刷したいので
以下のコードを実行すると、
Private Sub 単数印刷_Click()'
Application.ScreenUpdating = False
Unload Me
Unload G印刷
Dim i As Integer
With 名簿リスト2
For i = 0 To .ListCount - 1
If .Selected(i) Then
請求書の印刷範囲200
' Worksheets(.list(.ListIndex)).PrintPreview
Worksheets(Split(.list(.ListIndex - 0), " ")(1)).PrintPreview '
End If
Next i
End With
ActiveWindow.DisplayHorizontalScrollBar = False
GH印刷.Show
End Sub

Sub 請求書の印刷範囲200() '
ActiveSheet.Unprotect
Dim i As Integer
For i = 1 To Worksheets.Count - 8
With Worksheets(i)

.PageSetup.PrintArea = False '印刷範囲のクリア

If .Range("F11").Value <> 0 Then
.PageSetup.PrintArea = "$B$1:$T$44"

End If
End With
Next i
Worksheets(1).Activate
End Sub

以下の行が黄色くなりマクロがエラーとなり停止します。
エラーは　実行時エラー9
インデックスが有効範囲にありません　となります。
Worksheets(Split(.list(.ListIndex - 0), " ")(1)).PrintPreview '
これと同様のファイルで試すと何なく１枚だけ印刷できました。
このエラーの原因はなんでしょうか？解決方法を教えてください。

回答No.1

bin-chan

> このエラーの原因はなんでしょうか？解決方法を教えてください。
シート名とリストで選択しているようですが、半角スペース区切りを期待しているようですね。
半角スペースの右側。ちゃんとシート名と一致してますか？

お礼

Worksheets(Split(.list(.ListIndex - 0), "_ ")(1)).PrintPreview 'と言うコードに
変更したらエラーがでなく、無事印刷できました。

補足

せっかく教えていただいたのに、意味を理解できません。情け無いですが・・。
シート名とリストで選択しているようですが
-----はいそうです。
半角スペース区切りを期待している
-----すいませんわかりません。
半角スペースの右側。ちゃんとシート名と一致してますか？
-----すいません具体的な例で教えていただくとありがたいのですが・・。
お願いします。