Variable not defined error

[drluke]

I want users to save a workbook as a macro enabled file by using this code:

Sub StartFunctional ()
Dim FileSaveName As Variant
Dim xFileName As String

    If SaveAsUI <> False Then
    Cancel = True
    xFileName = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm", , "Save As xlsm file")
        End If
        
    Application.FileDialog(msoFileDialogSaveAs).Show
    End Sub

However, I am getting a 'Variable Not Defined' compile error. I have no idea, how to correct this. Can't find anything sensible that could help me.


Any advice appreciated.

 

[RoryA]

It looks like you've taken the code from a Workbook_BeforeSave event and tried to turn it into a normal routine, in which case you need to remove the test for SaveAsUI and the Cancel = True line.

 

[drluke]

So easy. Thank you very much.