Application.ExecuteExcel4Macro("SAVE.AS?()")
Thanks.
Becky
Try this instead:
Sub SaveMe()
Dim Savepath As Variant
Savepath = Application.GetSaveAsFilename("C:\Code\A.xls", _
"Beckys Workbooks (*.xls), *.xls", , "Pick a nice place")
If Savepath = False Then Exit Sub 'cancelled!
ActiveWorkbook.SaveAs Savepath
End Sub
It starts in C:\Code. Change that to the directory of your choice.
Best wishes Harald
"Rebecca Hannaman" <rhan...@worldnet.att.net> wrote in message
news:JfWr7.7963$WW.7...@bgtnsc05-news.ops.worldnet.att.net...
"Harald Staff" <harald...@eunet.no> wrote in message
news:uAXlRbZRBHA.1892@tkmsftngp05...