An example

Public Sub TestTabColour()

With ActiveSheet
Select Case .Tab.ColorIndex
Case 10: .Range("A1").Value = 1
Case 3: .Range("A1").Value = 2
'etc
End Select
End With
End Sub


--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"excel" wrote in message
oups.com...
On Jul 15, 11:28 am, excel wrote:
Can I have a cell in a worksheet (any cell at this stage) that shows
say a '1' if that worksheet tab colour is green, and a '2' if that
worksheet tab colour is red, nothing if there is no colour?, and if
so, how would i do that?

TIA
Esra

can i perhaps execute the macro at any stage to reflect any change of
colour? and if so, what would be the macro?

TIA
Esra