Count unique records in a filtered range

Hello jiminic,

Here is macro that will return the row count for a range after it has been filtered.

Function GetUniqueCount(Rng As Range) As Long

  Dim Cnt As Long
  Dim RA As Variant
    
    On Error Resume Next
      Set Rng = Rng.SpecialCells(xlCellTypeVisible)
      If Err = 0 Then
        For Each RA In Rng.Areas
          Cnt = Cnt + RA.Rows.Count
        Next RA
      Else
         Err.Clear
         On Error GoTo 0
      End If
    
    GetUniqueCount = Cnt
    
End Function

Sincerely,
Leith Ross