Sum partucular cells by colour of sheet

[Guest]

Hi,

I have several sheets of different tab colours, ie, 5 green, 10 blue, etc. I need to be able to sum all 'A1' cells together if they are on a particular coloured tab, ie, "What is the sum of all Blue tab sheets cell A1?"

I would appreciate any help,

Many thanks.

 

[papou]

Hi Geoffers
Here's an example code:
N = 0
For Each s In ThisWorkbook.Worksheets
If Worksheets(s.Name).Tab.ColorIndex = 11 Then
N = N + Worksheets(s.Name).Range("A1")
End If
Next s
MsgBox "Sum of cells A1 in dark blue tab sheets is " & N

HTH
Cordially
Pascal

Hi,

I have several sheets of different tab colours, ie, 5 green, 10 blue, etc.

I need to be able to sum all 'A1' cells together if they are on a
particular coloured tab, ie, "What is the sum of all Blue tab sheets cell
A1?"

 

[Guest]

Thank you very much.

Hi Geoffers
Here's an example code:
N = 0
For Each s In ThisWorkbook.Worksheets
If Worksheets(s.Name).Tab.ColorIndex = 11 Then
N = N + Worksheets(s.Name).Range("A1")
End If
Next s
MsgBox "Sum of cells A1 in dark blue tab sheets is " & N

HTH
Cordially
Pascal




I need to be able to sum all 'A1' cells together if they are on a
particular coloured tab, ie, "What is the sum of all Blue tab sheets cell
A1?"