5行おきにシート名の一覧を書き込みたい

お世話になっております。

シート名の一覧を

Dim ws As Worksheet
Dim i As Integer
i = 0
For Each ws In Worksheets
i = i + 1
Cells(i, 1) = ws.Name
Next

で取得しております。
その一覧ですが、5行おきに書き込むことはできますでしょうか？

宜しくお願い致します。

sheet1
(4行空ける）
sheet2
(4行空ける）

質問者からの補足コメント

• 

  もうひとつシート名一覧で付け加えたいのですが、シート名を5行全てに書き込むにはどのようにしたらよろしいでしょうか？
  
  sheet1
  sheet1
  sheet1
  sheet1
  sheet1
  sheet2
  sheet2
  sheet2
  ・
  ・
  ・
  という感じにできますでしょうか？

  No.2の回答に寄せられた補足コメントです。 補足日時：2015/08/18 09:19

No.3 ベストアンサー 回答者： ShowMeHow 回答日時： 2015/08/18 13:21

i = 1

For Each ws In Worksheets
for j = 1 to 5
Cells(i, 1) = ws.Name
i = i + 1
next j
・・・
とでも、、、

この回答へのお礼

ありがとうございます！
できました！
でもなんだかすごく時間がかかるんですねT_Tシートが増えたらちょっときつそうなので、違うやり方も考えてみます！

お礼日時：2015/08/18 13:54

No.2 回答者： hallo-2007 回答日時： 2015/08/17 18:12

i = 1

For Each ws In Worksheets
Cells(i, 1) = ws.Name
i = i + 5
・・・
でもよろしいかと。

この回答へのお礼

ありがとうございます！できました！

お礼日時：2015/08/18 09:17

No.1 回答者： ShowMeHow 回答日時： 2015/08/17 17:50

cells(i*5-4,1)とするとか。

この回答へのお礼

ありがとうございます！

お礼日時：2015/08/18 09:24