エクセルマクロをすこし 2018年8月12日

各シートを個別印刷（今回はシート連番でしたが、、、自分が求めているのは連番ではない。。。
ループを理解しないと先に進めそうにない。。。

Sub テスト的な何か()
Dim i As Integer
Dim N As Integer '
Dim Filename As String
i = 1
Do While i <= Worksheets.Count
Worksheets(i).Copy
Filename = Range("J5")
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "\" & Filename & ".xlsx"
N = N + 1
End With
i = i + 1
Loop
End Sub