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

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



© Copyright andrewsexceltips.net All Rights Reserved.