Post your Workbook_BeforeSave code

"LabrGuy Bob R" wrote:

Thank you Mike,

I have the Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel
As Boolean)
in the code. Do you know of a way to still do what this needs to do and
recover the SaveAs???

I didn't program the code because I'm less than a novice, but this feature
"Save As" would be welcomed back.

Bob

"Mike" wrote in message
...
You might have code in the Thisworkbook Module Example below
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If SaveAsUI = True Then Cancel = True
'Prevent workbook being saved as
End Sub

"LabrGuy Bob R" wrote:

I've discovered that it will "Save As" if I don't enable macros?
Whhile Macros are enabled it still won't "Save As"

Thanks in advance.
BOB

"LabrGuy Bob R" wrote in message
...
Hello, I have several sheets in my workbook that has a moderate amount
of
code.
All the code is working error free and there are no problems with the
workbook.
I can save the workbook with no problem.
I attempt to save as and I get the hourglass and it saves the workbook
with the same name and location. I can't get the save as window and
can't
change the name or location.

Any ideas as to how to fix this??
Thanks
BOB