Saving a workbook using VBA

[Michael Hudston]

I am trying to set up my workbook to save any changes on pressing of a button.

I have created the macro, which is simple and contains the one following line

ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Name

This quite expectedly shows up a dialogue box asking if I want to overwrite
the existing file.

If I select Yes,then the file saves without any problem. However if I say
no or cancel then it produces the following error - Run-time error 1004,
application-defined or object defined error.

Ideally if I select no then I would want a dialogue that allows me to change
the filename, or if I select Cancel then I would like it to just return to
the current active worksheet.

Ive been playing with this for days and I am no closer to solving it.

Help anyone please

 

[Mike H]

Try disabling alerts

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Name
Application.DisplayAlerts = True

Mike

 

[Bob Phillips]

Why not just

ActiveWorkbook.Save

 

[Michael Hudston]

I have tried that bob, but makes no difference

Why not just

ActiveWorkbook.Save

--
__________________________________
HTH

Bob

 

[Michael Hudston]

Ok, Well this got rid of the error, however now I dont have any choice at
all whether it saves using the current name or allowing a re-name.

 

[Steve C40]

Hi Michael,

Just pop some error handling around your code:

On Error GoTo ErrorHandler:
ActiveWorkbook.SaveAs ActiveWorkbook.Name
ErrorHandler:

Thanks,

Steve