List Fonts

[S.H.A.D.O.]

Good evening,

I have some input in cell "A1", it could be a combination of upper case letters, lower case letters or numbers. What I would like to do is list the contents of cell "A1" using every font starting in cell "B1" and continuing down please.
Thanks in advance.

 

[wigi]

What do you mean with font? The Font like Calbri, Marlett, Arial, and so on?

 

[wigi]

Anyway, for instance:

Sub listfonts()
    
    With [A1]
        For i = 1 To Len(.Text)
            Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(, 2) = _
                Array(Mid(.Text, i, 1), .Characters(i, 1).Font.Name)
        Next
    End With
    
End Sub

 

[S.H.A.D.O.]

Thanks for the reply wigi,

What I mean is, if I was to type Paul123 in cell "A1", then starting in cell "B1" and continuing down, cell "B1" would have Paul123 in the "Agency FB" font, cell "B2" would have Paul123 in the "Aharoni" font, cell "B3" would have Paul123 in the "Algerian" font etc all the way down to Paul123 in the "Wingdings 3" font which is the last font available in Excel 2007 which I am using.
Thanks again.

 

[wigi]

Ah ok, then your question put me on the wrong track.

Have a look here:

http://www.ozgrid.com/forum/showthread.php?t=30814

 

[S.H.A.D.O.]

Brilliant, exactly what I was after.
Thanks Wigi.

 

[wigi]

You're welcome.

FYI, the Google search action was:

excel vba loop through installed fonts