Save as a macro enabled workbook

[dparteka]

I have this macro that works perfectly except that it saves my macro enabled workbook (xlsm) as a regular excel workbook (xlsx). Can someone tell me what I need to change so it saves my macro enabled workbook as a macro enabled workbook?

With Application.FileDialog(msoFileDialogSaveAs)
.AllowMultiSelect = False
.InitialFileName = ("H:\Public\") & Range("AJ2").Text & " QCR"
If .Show = -1 Then .Execute
End With

Thank-you... Dennis

 

[Deepak]

Pls check this..

http://www.rondebruin.nl/mac/mac020.htm

 

[dparteka]

Very helpful... thanks

 

[Deepak]

Very helpful... thanks

Welcome!!