title: "Please Wait" popup message
body: <p>I am trying to create a <code>Please Wait</code> message in Excel VBA. This is to remind the user processing a SQL query that the process is still ongoing. I would like to have this message displayed in a userform.</p>
  
  <p>Currently, the user connects to SQL DB, selects database and some other options, presses Go... and the form does not unload. At the Go point I have another form which pops up with message <code>Please Wait</code>, but this form does not unload, i.e. the SQL execute command does not run.</p>
  
  <p>My code for calling the <code>Please Wait</code> userform, including a label:</p>
  
  <pre><code>   Call WaitShowSQl.ExecuteCall KillWaitCall WaitShow
     SQl.Execute
     Call KillWait
  </code></pre>
  
  <p>In another code module I have:</p>
  
  <pre><code>   Sub WaitShow()
     Wait.Show
     End Sub
  
     Sub KillWait()
     Unload Wait
     End Sub
  </code></pre>
  
  <p>I have userform called <code>wait</code> with following code:</p>
  
  <pre><code>Private Sub UserForm_Activate()
  Call PleaseWait
  End Sub 
  
  Sub PleaseWait()
  Wait.Label1.Caption = "Calculating...Please Wait!"
  End Sub
  </code></pre>
  
  <p>Now when executing the code, the run-time does not move back through the module in order to execute the following:</p>
  
  <pre><code>SQl.ExecuteSQl.Execute
  </code></pre>
  
  <p>I can show the progress of the program with a status bar, but a userform popup message would be very useful for this program.</p>