VBA retrieve sheet tab color value

[nodent]

Hello,
I'm creating a front end navigation sheet to point to other sheets within the workbook.

I want to retrieve the sheet tab color then fill a cell to match that color.

Thank you
Shannon

 

[Fluff]

How about

Sub ShtTabColour()

   Dim Ws As Worksheet
   Dim Cnt As Long
   
   For Each Ws In Worksheets
      Cnt = Cnt + 1
      With Sheets("[COLOR=#ff0000]Sheet1[/COLOR]").Range("A" & Cnt)
         If Not Ws.Tab.Color = False Then .Interior.Color = Ws.Tab.Color
         .Value = Ws.Name
      End With
   Next Ws
      
End Sub

This will put the sheet name & tab colour in col A of a sheet called Sheet1

 

[nodent]

How about

Sub ShtTabColour()

   Dim Ws As Worksheet
   Dim Cnt As Long
   
   For Each Ws In Worksheets
      Cnt = Cnt + 1
      With Sheets("[COLOR=#ff0000]Sheet1[/COLOR]").Range("A" & Cnt)
         If Not Ws.Tab.Color = False Then .Interior.Color = Ws.Tab.Color
         .Value = Ws.Name
      End With
   Next Ws
      
End Sub

This will put the sheet name & tab colour in col A of a sheet called Sheet1

Thank you so much, I was able to get mine to work with your insight

 

[Fluff]

Glad to help & thanks for the feedback