Show Actual Display of Fonts based on the Font Description in Col "A"

  • Re: Show Actual Display of Fonts based on the Font Description in Col "A"


    Hi John,


    Try adding this line of code...


    Code
    Cells(i + 1, 2).Font.Name = Cells(i + 1, 1)


    ...immediately beneath this existing line of code:


    Code
    Cells(i + 1, 1) = FontList.List(i + 1)


    Note the font size is not set.


    HTH


    Robert

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!