title: Showing COUNTIF results in a Message Box
body: <p>I am currently using this code to display the number of "RCA Pending" found in a column. The message box does show the correct number of times it is found in the column, however, it creates a box for each instance (i.e. if there are 2 instances in the column, when the workbook is open it will display "Found 2 RCA Pending(s)", then when the user clicks OK, a second popup saying the same thing appears. If there are 5, you will get 5 consecutive popups).</p>
  
  <pre><code>Sub Auto_Open()
  
      Dim row As Range
      For Each row In Worksheets("Swivel").UsedRange.Rows
          If row.Cells(1, "AB").Value = "RCA Pending" Then
              MsgBox "Found " &amp; WorksheetFunction.CountIf(Columns("AB"), "RCA Pending") &amp; " RCA Pending(s)", vbInformation, "RCA Pending Found"
          End If
      Next row
  
  End Sub
  </code></pre>
  
  <p>How can this be altered to show the total number of instances and not get multiple popups?</p>
  
  <p>As a side note, I am using UsedRange because the range is always growing. The module that this code resides in has <code>Option Explicit</code> at the top.</p>