Summary sheet colour

[mattless1]

Hi All,

I have a summary sheet with all my suppliers on it.
is there a way I can colour the supplier names in the summary sheet with colour of their tabs.

thanks in advance.

 

[Fluff]

Did you copy the entire code, or did you miss the last line?

 

[mattless1]

This is what I copied, the first line is yellow

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sub ColorSupplier()
Dim supplier As Range, ws As Worksheet
For Each supplier In Sheets("Summary").Range("A4", Sheets("Summary").Range("A" & Rows.Count).End(xlUp))
For Each ws In ActiveWorkbook.Sheets
If UCase(ws.Name) = UCase(supplier) Then
supplier.Interior.Color = ws.Tab.Color
Exit For
End If
Next ws
Next supplier
End Sub

 

[Fluff]

Get rid of the first line and just use the code as supplied

 

[mattless1]

Hi Fluff,

yes that works perfect.

thank you and Yongle for helping me out. I would of never done it with out you.

Kind Regards,
Larry.

 

[Fluff]

Glad we could help & thanks for the feedback