Get the name and size of the font used in cell, eg =getfont(A1)

Function GetFont(rCell As Range) As String
 GetFont = rCell.Font.Name & " " & rCell.Font.Size
End Function



© Copyright andrewsexceltips.net All Rights Reserved.