ctrlaltdel
Board Regular
- Joined
- Dec 1, 2002
- Messages
- 60
I created the following public function to give us the color of cell shading that was used so that we could use it to get a count of how many times each shade was used:
Public Function Color(Optional rng As Range) As String
On Error GoTo NoRange
Color = rng.Item(1).Interior.ColorIndex
Exit Function
NoRange:
Color = "RANGE?"
End Function
However, when I change the color of a cell, the number doesn't automatically change. Recalculate doesn't work either. I am a super-novice here, so I sure hope one of you experts can help.
Thanks
Public Function Color(Optional rng As Range) As String
On Error GoTo NoRange
Color = rng.Item(1).Interior.ColorIndex
Exit Function
NoRange:
Color = "RANGE?"
End Function
However, when I change the color of a cell, the number doesn't automatically change. Recalculate doesn't work either. I am a super-novice here, so I sure hope one of you experts can help.
Thanks