Sub SpecialRange() Dim TheRange As Range Dim oCell As Range Set TheRange = Range("A1:Z200").SpecialCells(__ xlCellTypeConstants, xlTextValues) For Each oCell In TheRange If oCell.Text = "Your Text" Then Debug.Print oCell.Address Debug.Print TheRange.Cells.Count End If Next oCell End Sub