ccpsc,
If you're looking for a specific format that those cells all share, you can use the Application.FindFormat to specify what format you're looking for, and then the .Find method with SearchFormat:=True. For example, this will find all cells in the A1:A75 range that have bold font and a red fill:
Sub tgr()
Dim rngFound As Range
Dim rngFormat As Range
Dim strFirst As String
With Application.FindFormat
.Clear
.Font.Bold = True
.Interior.Color = RGB(255, 0, 0)
End With
With Range("A1:A75")
Set rngFound = .Find("", .Cells(.Cells.Count), SearchFormat:=True)
If Not rngFound Is Nothing Then
Set rngFormat = rngFound
strFirst = rngFound.Address
Do
Set rngFormat = Union(rngFormat, rngFound)
Set rngFound = .Find("", rngFound, SearchFormat:=True)
Loop While rngFound.Address <> strFirst
MsgBox rngFormat.Address
Set rngFormat = Nothing
Set rngFound = Nothing
strFirst = vbNullString
End If
End With
Application.FindFormat.Clear
End Sub
Bookmarks