MACRO needed to save workbook as xlsx and remove macros

[ghp2017]

Hello,

I am trying to build a button that will automatically convert the file from macro enabled to macro disabled version.

I have tried the following but it's not really working correctly.
-----------------------------------------------------------------------------------------------------------------------------------------
Sub Final_SAVE_to_GDrive_Inventory_Folder()
'
' Final_SAVE_to_GDrive_Inventory_Folder Macro
'


'
Dim FP As String, FN As String
FP = "H:\My Documents\Inventory"
FN = Range("Template!D2").Value
ActiveWorkbook.SAVEAS Filename:=FP & FN & ".xlsx"
End Sub
-------------------------------------------------------------------------------------------------------------------------------------------
I found that if I use ".xls" it will save but I get an warning message and an option to enable the macros.

 

[Kenneth Hobson]

You need to set the fileformat. Record a macro to get the syntax if you don't know.

 

[ghp2017]

You need to set the fileformat. Record a macro to get the syntax if you don't know.

Thanks, but that doesn't really help me. Can you please explain further?

 

[Kenneth Hobson]

You don't know how to record a macro? https://support.office.com/en-us/ar...Recorder-974ef220-f716-4e01-b015-3ea70e64937b

 

[lhartono]

Modify your code...

Sub Final_SAVE_to_GDrive_Inventory_Folder()
'
' Final_SAVE_to_GDrive_Inventory_Folder Macro
'


'
Dim FP As String, FN As String
FP = "H:\My Documents\Inventory"
FN = Range("Template!D2").Value

Application.DisplayAlerts = False
ActiveWorkbook.SAVEAS Filename:=FP & FN & ".xlsx"
Application.DisplayAlerts = True

End Sub