Formula/VBA to enter worksheet/tab color as a value in a cell

**cheesiepoof05** · 03-14-2013, 01:55 PM

I would like to be able to return the color of each worksheet/tab as a value in a cell on each worksheet.

Example:

"Sheet 1" - is colored green - Cell "P1" of this worksheet should say green or the excel value of that color
"Sheet 2" - is colored red - Cell "P1" of this worksheet should say red or the excel value of that color
"Sheet 3" - is colored blue - Cell "P1" of this worksheet should say blue or the excel value of that color

Not sure if this is even possible but thought I would ask the experts and see.

Thanks!

**ragavan.sridar1** · 03-14-2013, 02:27 PM

use this code with the color value in required cell.

Sub Macro1()
'


'
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

ws.Select
    With ActiveWorkbook.ActiveSheet.Tab
        .Color = ActiveSheet.Range("A1").Value
        .TintAndShade = 0
    End With
    Range("B32").Select

Next ws

End Sub

The color codes should be like this "5296274"

**cheesiepoof05** · 03-14-2013, 03:05 PM

I'm not following what that is doing?

**cheesiepoof05** · 03-14-2013, 03:06 PM

That's not working and I'm not following what it is trying to do?

**cheesiepoof05** · 03-14-2013, 03:21 PM

This isn't doing what I was wanting.

**ragavan.sridar1** · 03-14-2013, 03:28 PM

Sorry..

I understood this wrong..

Try this code.

Sub Macro1()
'
' Macro1 Macro
'

'
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

ws.Select
    Range("P1").Value = ActiveSheet.Tab.Color
    
    
    

Next ws

End Sub