How to select all the cells with the same font?

[prabha_friend]

Hi All,
I want to select all the cells having the same font ("AmplitudeTF"). The recording option gives the following:

    With Application.FindFormat.Font
        .Name = "AmplitudeTF"
        .Subscript = False
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With

But How to do a "FindAll" programmatically?

 

[davesexcel]

This may help with find all in VBA
FindAll VBA Function