xlDialogSaveAs

Hey,

I have these 2 macros that work perfectly fine separately, but I'm having a difficult time trying to combine them to being 1 macro

The one makes a dialog box pop up that makes the "Save as file type" a Macro Enabled Workbook

Sub SaveAsDialog()
    
    Application.Dialogs(xlDialogSaveAs).Show sFilename, xlOpenXMLWorkbookMacroEnabled
End Sub

And this macro saves the file to a certain location on my computer

Sub Auto_Open()
    Application.GetSaveAsFilename "C:\Documents and Settings\bob\Desktop\Excel\"
End Sub

Any ideas on how to combine these files?

Thank you, as always, I really appreciate your time and efforts,
Bob