VBAによる自動保存

Question

Sub Autosave() 

ActiveWorkbook.SaveAs Filename:="C:\Users\PC\Desktop\NAME.xlsm" _ 
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 
End Sub 

上記のコードでは、ファイル名「NAME」を範囲「A1」の値に変更しようとしていましたが、常にエラーが発生します。これを解決する方法はありますか？範囲 "A1" の名前を付けて保存価値

Sub Autosave() 
    Dim FileName As String 
    FileName = Sheets("Sheet1").Range("A1").Text 

    ActiveWorkbook.SaveAs FileName:="C:\Users\PC\Desktop\" & FileName _ 
    , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 
End Sub 

Answer 1

。