With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = "S:\Accounting\BSP 2006\"
.AllowMultiSelect = False
If .Show = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=.SelectedItems(1)
End With

Try that...

Die_Another_Day

Shams wrote:
Folks,
I am running a macro that should prompt the user to save the file under a
default path name. I would like the macro to save the file in, for example,
S:\Accounting\BSP 2006\File Name.

Could you please suggest a solution? Thank you.

Regards,
Shams.