title: A lot of status bars make runtime error '1004' methods 'status bar' of object'_application' failed. How to fix It?
body: <p>I just make validation program with vba macro excel. </p>
  
  <p>The program is made to see a lot of errors. so i can fix the errors. </p>
  
  <p>I use message box also message in status bar. I use status bar because, I want my message keep showing, when I click the sheets which contain error. message box doing well, but A lot of error messages in status bars make runtime error '1004' methods 'status bar' of object'_application' failed. my program stop working. </p>
  
  <p>this is my code:</p>
  
  <pre><code>Private Sub commandbutton1_click()
  
  Dim error As String
  
      error = ""
  
      If (baby_less_1_year = True) And (immunization_exp = 0) Then
          error = error &amp; "(1) immunization exp shouldn't be empty" &amp; Chr(10)
          End If
  
      If (saving_bank= True) And (finance_exp = 0) Then
          error = error &amp; "(1) finance bank exp shouldn't be empty " &amp; Chr(10)
          End If
  
      If (handphone = True) And (pulse_exp = 0) Then
          error = error &amp; "(1) pulse exp shouldn't be empty" &amp; Chr(10)
          End If
  
  
  
  If error = "" Then Application.StatusBar = "clean" Else Application.StatusBar = error
  
  If error = "" Then MsgBox "sudah clean", vbInformation Else MsgBox error, vbCritical
  </code></pre>
  
  <p>How to fix It??? Is there any tricks to use status bar message which contains a lot of message?</p>