最後の３枚を除くシート名をセルに表示したい。

質問

Excel2007でマクロ作成の初心者です。
シート名をセルに表示したいのですが、シートの最後の３枚だけは
セルに表示したくないです。
以下やってもできませんでした。
Sub シート名をセルに()
Dim ws As Worksheet
Dim i As Integer
Const EXCEPT_NAME = "請求書　経理部　一覧表"
i = 0
For Each ws In Worksheets
i = i + 1
Cells(i + 3, 4) = ws.Name
Next
End Sub
たとえば、Worksheets.Count　-3　　の数だけセルに表示するにはどうしたらよいでしょうか。

回答No.1

mt2008 · ベストアンサー

シンプルにWorksheets.Count　-3の数だけループを回しては？
こんな感じで……

Sub シート名をセルに()
　　Dim i As Integer
　　For i = 1 To (Worksheets.Count - 3)
　　　　Cells(i + 3, 4) = Worksheets(i).Name
　　Next i
End Sub

お礼

すばやいご回答ありがとうございます。おかげさまでやりたいことがやれました。