Change Default Save As for Single worksheet

[Pammi J]

Hi
can anybody help - i need to change the default save as - im on exel 2000 -
but i only want it to save on the current workbook and not every excel
workbook.
Does anyone have any ideas please.
many thanks

 

[Dave Peterson]

I don't think you can.

But you could use a macro that automates the copying, saving, and closing that
does it for you.

With hardly any testing or validity checks:

Option Explicit
Sub testme()
Dim res As Long

ActiveSheet.Copy 'to a new workbook

res = Application.Dialogs(xlDialogSaveAs).Show

If res = 0 Then
MsgBox "Not saved"
Else
MsgBox "Saved"
End If

ActiveSheet.Parent.Close savechanges:=False

End Sub