>>44
動かないのですが。
'数字+ファイルネームで保存するマクロ

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

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

Dim myFolder As String
myFolder = "E:\data" '保存場所

Dim mySaveName As String '保存するときのファイル名
mySaveName = myFolder & myNumber & ThisWorkbook.Name

Dim myIniName As String '保存ダイアログに表示されるファイル名
myIniName = Application.getsavefilename(InitialFileName:=mySaveName _
, FileFilter:="Excelファイル.*.xlsm")

'ダイアログで「いいえ」を選択した場合のエラー回避
'この下で「コンパイルエラー　構文エラー」になります。
If myIniName <> 「False」 Then
ActiveWorkbook.SaveAs myIniName
End If