title: Message box pop-up through filter with VBA
body: <p>I'm looking to have a macro filter through a certain data set (which uses filters) for a certain date. If it doesn't find the date, I'd like a message box to pop-up stating that no transactions were made, and if it does find the date, I'd like it to copy the the entire data set for that date. Here below, I tell it to filter for that date. I have no problem copying the data set, I can't seem to get the message box to pop-up if the date doesn't appear in the filter.</p>
  
  <p>`
      ' Copy New Buys
      Windows("Filename").Activate
          MonthlyBuys.Activate</p>
  
  <pre><code>        ActiveSheet.Range("$A$1:$CN$760").AutoFilter Field:=14, Criteria1:="SA68"
  
          ActiveSheet.Range("$A$1:$CN$760").AutoFilter Field:=10, Operator:= _
  
          xlFilterValues, Criteria2:=Array(1, "08/20/2013")
  
          Lastrow = MonthlyBuys.Cells(Rows.Count, 1).End(xlUp).Row
              If WorksheetFunction.CountA(Range("A2:CN" &amp; Lastrow)) = 0 Then
                  MsgBox ("No New Transactions for" &amp; Now)
              Else
                  MonthlyBuys.Range("A2:CN" &amp; Lastrow).Copy
         End If`
  </code></pre>
  
  <p>Thanks for the help!</p>