User Defined Formular

E

Eileen

I have two user defined formular trying to get the value
of the color font & interior. I saved as "add-in" and
activate from Tool-add in. The problem I have is it is
not refreshing! No matter what color font, I got the
value -4105; no matter what color interior, I got the
value -4142. PLEASE HELP and I really appreciate it.


Function colorfont(MyColor As Range) As String
colorfont = MyColor.Font.ColorIndex ' Get value of font
color
End Function

Function ColorInterior(MyColor As Range) As String
ColorInterior = MyColor.Interior.ColorIndex ' Get value
of interior Color
End Function
 
A

AlfD

Hi!

Thanks, Earl. Well said.

The use of incidentals like colour of cell or "is it *Bold*" leaves m
anxious if not cold. I'm more comfortable with causes rather tha
symptoms.

Al
 
Top