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

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

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

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

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

Mike
I'm helping Bob with this project. Yes, I had a Cancel=True at the
beginning of the BeforeSave macro. It hadn't occurred to me that the Cancel
statement would cancel the SaveAs also, which, in hindsight, is rather
obvious.
I changed the code to allow a SaveAs without executing the rest of the
code in that macro, and to execute that code if the save command was a Save
only. So all is well now. Thanks for your time with this. Otto
"Mike" wrote in message
...
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