>>36
Sub Save_num_file()
'数字+ファイルネームで保存するマクロ

Dim myNumber As String
myNumber = Cells(1, 1).Value 'ファイルネーム先頭の数字＝ここではセルA1

Dim myFolder As String
myFolder =