xlDialogSaveAs

[sighlent1]

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

[MarvinP]

What specifically doesn't work? What are you trying to accomplish?

[sighlent1]

Each one works fine as they are when separated, but what i'd like to do is have the file be saved to a certain location and be a Macro Enabled Workbook file type. So, I'm looking for something along the lines of this (this code doesn't work though):

Sub SaveAsDialog()
Application.Dialogs(xlDialogSaveAs).Show sFilename, xlOpenXMLWorkbookMacroEnabled
Application.GetSaveAsFilename "C:\Documents and Settings\bob\Desktop\Excel\"
End Sub

[royUK]

Read this

[sighlent1]

Wow, this is awesome.....Thank you Roy!!!!!!