Showing MsgBox after Control Toolbar macro runs

I have a combo box from the Control Toolbar on a sheet. It calls a Change
macro that is behind the sheet. After the macro runs (and does a lot of
writing to various sheets) I'd like to display a warning message under
certain circumstances. The MsgBox beeps, but does not display. If I put a
stop before it and step through the code, then it displays. Also if I put a
dummy MsgBox "" first, then the second one that I want does display. But
I'd rather not do this kludge.

Don <www.donwiss.com> (e-mail link at home page bottom).

Don,
Post the relevant code, otherwise it's a tad difficult.

NickHK

"Don Wiss" <donwiss@no_spam.com> wrote in message
news:[email protected]...
> I have a combo box from the Control Toolbar on a sheet. It calls a Change
> macro that is behind the sheet. After the macro runs (and does a lot of
> writing to various sheets) I'd like to display a warning message under
> certain circumstances. The MsgBox beeps, but does not display. If I put a
> stop before it and step through the code, then it displays. Also if I put
a
> dummy MsgBox "" first, then the second one that I want does display. But
> I'd rather not do this kludge.
>
> Don <www.donwiss.com> (e-mail link at home page bottom).

On Fri, 4 Aug 2006 12:28:55 +0800, "NickHK" <[email protected]> wrote:

>Don Wiss <donwiss@no_spam.com> wrote:
>> I have a combo box from the Control Toolbar on a sheet. It calls a Change
>> macro that is behind the sheet. After the macro runs (and does a lot of
>> writing to various sheets) I'd like to display a warning message under
>> certain circumstances. The MsgBox beeps, but does not display. If I put a
>> stop before it and step through the code, then it displays. Also if I put a
>> dummy MsgBox "" first, then the second one that I want does display. But
>> I'd rather not do this kludge.

>Post the relevant code, otherwise it's a tad difficult.

Private Sub ComboBox1_Change()
BulkLimChange "AL"
End Sub

Sub BulkLimChange(LOB As String)
' this is called by the bulklim combo box change event
Dim S As String
If ActiveSheet.Name = "GU_Pick_" & LOB Then
AllCalcs LOB ' this macro calls lots of code, including numerous calls to an Access database
If Application.EnableEvents Then
S = Range("LRLossCostRate").Formula
If Left(S, 1) <> "=" And Len(S) <> 0 Then
' this first one is not displayed, but if not here the second isn't
MsgBox ""
' we might as well show them the new numbers
Application.ScreenUpdating = True
MsgBox "Your " & LOB & " loss pick is hard coded. When you change the Loss Rating Limit you have to change your pick.", vbExclamation, "Reminder To Change " & LOB & " Loss Pick"
End If
SendKeys "{ESC}"
End If
End If
End Sub


Don <www.donwiss.com> (e-mail link at home page bottom).