Monday, April 13, 2009

Identify formatting for specific range

' Function for identify Interior color
Public Function IColour(MyCell As Range)
IColour = MyCell.Interior.ColorIndex
End Function

' Function for identify Font color
Public Function FColour(MyCell As Range)
FColour = MyCell.Font.ColorIndex
End Function

' Function for identify bold formatting
Public Function Bold(MyCell As Range)
If MyCell.Font.Bold = True Then
Bold = "True"
Else
Bold = "False"
End If
End Function