Sub saveasxlsm()
ActiveWorkbook.saveas Filename:="C:\Users\zgjxg\Desktop\" & Worksheets(2).Range("B5") & "test.xlsm", _
FileFormat:=52, CreateBackup:=False
End Sub
ActiveWorkbook.saveas Filename:="C:\Users\zgjxg\Desktop\" & Worksheets(2).Range("B5") & "test.xlsm", _
FileFormat:=52, CreateBackup:=False
End Sub