Hello first time poster here!

I am looking to set up a button that copies the current sheet and saves it as a separate workbook under a new name.

My spreadsheet contains a number of forms and macros that all work as intended, the trouble comes from making the SaveAs Dialog box default to Macro enabled (.xlsm) instead of just .xls. Although it does currently function, there will be less computer savvy users interacting with this spreadsheet and I cannot for the life of me figure out how to default the file type to macr enabled.

Any help would be appreciated!

Here is my SaveAs code:

Sub startInput()

Dim wb As Workbook

Set wb = Workbooks.Add

ThisWorkbook.Sheets("Purchase Order").Copy Before:=wb.Sheets(1)

Application.Dialogs(xlDialogSaveAs).Show

inputForm.Show

End Sub