マクロ初心者です『for文の使い方について』『任意の数字のファイル名で保存』

Question

いつもありがとうございます。
マクロを業務上使うことがあり、そのたびにコピペしたりなんとかしたりして突貫工事で作ってきたのですが、
如何せん、恥ずかしながら、基礎というか、土台がなっておりません...

今回質問させていただくのは本当に基本的なことで申し訳ないのですが、

エクセルで任意のセル（例F1）に数字を入れ、その入力した数字の名前でファイルを保存したいというものです。

例としては、F1に1を入れて名前をつけて保存で『1.xlsx』と任意の場所に保存する
で、
これを「1～60」までやりたく思っています。
（全部で60ファイル出来上がる）
「1.xlsx」
.
.
.
「60.xlsx」

簡単なところをまだ理解できていないのでお恥ずかしい限りですが、ご教示いただけると嬉しいです。

よろしくお願いいたします。

Comments

[ttyp03]

F1が10であれば、10～70までってことでしょうか？

[alice]

早速反応くださり、ありがとうございます。わかりにくく、すみません。はい、その通りです。

[ttyp03]

失礼。10だったら、10～69ですね。

[alice]

はい。そうでした。すみません。61ファイルでした。

[alice]

すみません、訂正で上記の例は60ファイルです....テンパっておりました。

Answer 1

とりあえず最低限のコードです。
出力先のパスは適宜修正してください。

Sub test()
    If IsNumeric(Cells(1, 6).Value) Then
        st = Cells(1, 6).Value
        ed = st + 59
        For i = st To ed
            ThisWorkbook.SaveAs "c:\temp\" & i & ".xlsx"
        Next
    End If
End Sub

Comments

[alice]

返事が遅くなりすみません。
迅速に対応くださり、ありがとうございます。
無事動きました！