here is my macro...
StartSave:
With Application.FileDialog(msoFileDialogSaveAs)
    .InitialFileName = "c:\Users\*****\My Documents\test.xlsm"
    .AllowMultiSelect = False
    .Show
    If .SelectedItems.Count <> 1 Then
        SaveBox = MsgBox("The Workbook was not saved" & Chr(10) & _
                    "If you would like to save, click ""Retry""." & Chr(10) & _
                    "If you do not wish to save, click ""Cancel"".", 5 + 48 + 65536, "Workbook not saved")
    If SaveBox = 4 Then
        GoTo StartSave
        Else: Exit Sub
    End If
    End If
    ActiveWorkbook.SaveAs .SelectedItems(1)
End With
The macro works fine... the only problem is that I would like to make it pop up as "save as .xlsm" rather than the usual ".xlsx"
is there any way I can force it to do that?