Zapisywanie pliku VBA

Zapisywanie pliku VBA
www.wallstreet...
---------------------
Kod VBA
---------------------
Sub FileSaveAs()
Dim FilePath As String
FilePath = Application.GetSaveAsFilename
ActiveWorkbook.SaveAs Filename:=FilePath & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub
----------------------------------------------------------------------------------------------------------
Sub FileSaveAs_2()
ActiveWorkbook.SaveAs _
Filename:="C:\Users\Tomek\OneDrive\UA-cam Trass\KURS DLA ANALITYKA\Analiza\Analiza_Sprzedaży", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub