Function CellColorIndex

nehpets12

Active Member
Joined
Feb 22, 2002
Messages
452
I am using cpearsons code from http://www.cpearson.com/excel/colors.htm

It there a way of only running this code from a certain worksheet
something like If ActiveSheet.Name <> "Subassy" Then End

I only need this to run on this worksheet


Code:
Function CellColorIndex(InRange As Range, Optional _
    OfText As Boolean = False) As Integer
   
    Application.Volatile True
    If OfText = True Then
    CellColorIndex = InRange(1, 1).Font.ColorIndex
    Else
    CellColorIndex = InRange(1, 1).Interior.ColorIndex
    End If

End Function
 

Some videos you may like

Excel Facts

Spell Check in Excel
Press F7 to start spell check in Excel. Be careful, by default, Excel does not check Capitalized Werds (whoops)

Andrew Poulsom

MrExcel MVP
Joined
Jul 21, 2002
Messages
73,092
Like this?

Code:
Function CellColorIndex(InRange As Range, Optional _
    OfText As Boolean = False) As Variant
    If Application.Caller.Parent.Name <> "Subassy" Then
        CellColorIndex = CVErr(xlErrNA)
        Exit Function
    End If
    Application.Volatile True
    If OfText = True Then
    CellColorIndex = InRange(1, 1).Font.ColorIndex
    Else
    CellColorIndex = InRange(1, 1).Interior.ColorIndex
    End If
End Function
 

Watch MrExcel Video

Forum statistics

Threads
1,113,811
Messages
5,544,455
Members
410,612
Latest member
MrACED
Top