I understand these for/next methods. I'm trying to avoid for/next loops
in favor of the find function.
John

Bernard Liengme wrote:
Something to get you started

Sub TryMe()
Range("A1:I1").Select
For Each mycell In Selection
If mycell.Font.Size = 18 Then
MsgBox mycell.Value & " " & mycell.Address
End If
Next
End Sub

best wishes