This code is causing a workbook to throw the error "Document not
saved". Oddly enough it saves fine once I remove it. How can a message
box cause such a problem?

It gets stranger....If I create a new workbook and paste the code in
there it saves without a problem. The original workbook has 11 sheets
and a decent amount of data if that matters, (which I don't think it
does). Is this some kind of fluke bug or is there an explaination?
Excel 2k3, SP2


Public Sub Initialize()

check = MsgBox("Have you created/renamed all columns on all sheets as
follows?" & vbNewLine & _
"" & vbNewLine & _
"CUSIP - should contain all CUSIPs" & vbNewLine & _
"ISIN - should contain all ISINs" & vbNewLine & _
"BID - should contain all BID prices" & vbNewLine & _
"ASK - should contain all ASK/OFFER prices" & vbNewLine & _
"SYCODE - create, will initially be blank" & vbNewLine & _
"INVERT - create, will initially be blank" & vbNewLine & _
"MID - create, will initially be blank" & vbNewLine & _
"" & vbNewLine & _
"Please note that all columns must exist for the macro to work
properly." & vbNewLine & _
"", vbYesNo)

If check = 7 Then
Exit Sub
End If

'Var = Application.InputBox(Prompt:="This is a test", Type:=0)

'MsgBox (Var)


End Sub

The size of your file can make a difference in the amount of time it takes to
execute the save. And, depending on how many executions of other code there
is between the save command and the end sub command, it can possibly be
getting the end sub command before it executes the save and therefore, throws
the error.
But, if your message box is between the save command and the end sub
command, it should be able to save. Sometimes these things occur during a
session, and then they go away after everything is closed and reopened.
Maybe, gremlins.<g

"Kigol" wrote:

This code is causing a workbook to throw the error "Document not
saved". Oddly enough it saves fine once I remove it. How can a message
box cause such a problem?

It gets stranger....If I create a new workbook and paste the code in
there it saves without a problem. The original workbook has 11 sheets
and a decent amount of data if that matters, (which I don't think it
does). Is this some kind of fluke bug or is there an explaination?
Excel 2k3, SP2


Public Sub Initialize()

check = MsgBox("Have you created/renamed all columns on all sheets as
follows?" & vbNewLine & _
"" & vbNewLine & _
"CUSIP - should contain all CUSIPs" & vbNewLine & _
"ISIN - should contain all ISINs" & vbNewLine & _
"BID - should contain all BID prices" & vbNewLine & _
"ASK - should contain all ASK/OFFER prices" & vbNewLine & _
"SYCODE - create, will initially be blank" & vbNewLine & _
"INVERT - create, will initially be blank" & vbNewLine & _
"MID - create, will initially be blank" & vbNewLine & _
"" & vbNewLine & _
"Please note that all columns must exist for the macro to work
properly." & vbNewLine & _
"", vbYesNo)

If check = 7 Then
Exit Sub
End If

'Var = Application.InputBox(Prompt:="This is a test", Type:=0)

'MsgBox (Var)


End Sub

On Jun 28, 7:32 pm, JLGWhiz wrote:
The size of your file can make a difference in the amount of time it takes to
execute the save. And, depending on how many executions of other code there
is between the save command and the end sub command, it can possibly be
getting the end sub command before it executes the save and therefore, throws
the error.
But, if your message box is between the save command and the end sub
command, it should be able to save. Sometimes these things occur during a
session, and then they go away after everything is closed and reopened.
Maybe, gremlins.<g



"Kigol" wrote:
This code is causing a workbook to throw the error "Document not
saved". Oddly enough it saves fine once I remove it. How can a message
box cause such a problem?

It gets stranger....If I create a new workbook and paste the code in
there it saves without a problem. The original workbook has 11 sheets
and a decent amount of data if that matters, (which I don't think it
does). Is this some kind of fluke bug or is there an explaination?
Excel 2k3, SP2

Public Sub Initialize()

check = MsgBox("Have you created/renamed all columns on all sheets as
follows?" & vbNewLine & _
"" & vbNewLine & _
"CUSIP - should contain all CUSIPs" & vbNewLine & _
"ISIN - should contain all ISINs" & vbNewLine & _
"BID - should contain all BID prices" & vbNewLine & _
"ASK - should contain all ASK/OFFER prices" & vbNewLine & _
"SYCODE - create, will initially be blank" & vbNewLine & _
"INVERT - create, will initially be blank" & vbNewLine & _
"MID - create, will initially be blank" & vbNewLine & _
"" & vbNewLine & _
"Please note that all columns must exist for the macro to work
properly." & vbNewLine & _
"", vbYesNo)

If check = 7 Then
Exit Sub
End If

'Var = Application.InputBox(Prompt:="This is a test", Type:=0)

'MsgBox (Var)

End Sub- Hide quoted text -

- Show quoted text -

Yes yes I've considered gremlins and I swear if that regergitated
hairball Gizmo charged me and didn't finish the job I'm gonna shove my
foot up his fluffy white ass. I don't have any save commands in the
code so it shouldn't be affecting it. The only code I have literally
is what I posted, plus a few other lines which clear cells. The file
is 5.8mb, nothing large at all.