Hej jag behöver lite hjälp,

jag försöker skapa en lista med namn på alla flikar och så långt går det bra men jag skulle även vilja att flikfärgen låg antingen som bakgrund till namnet alternativt i en kolumn bredvid.

mitt lilla egna experiment vart nästan rätt men jag får upp färgvärdet istället för färg i cellen

Sub Framdrift()
 
Dim ws As Worksheet
Dim x As Integer
 
x = 1
 
Sheets("Blad3").Range("A:A").Clear
 
For Each ws In Worksheets
     Sheets("Blad3").Cells(x, 1) = ws.Name
     Sheets("Blad3").Cells(x, 2) = ws.Tab.Color
     x = x + 1
Next ws
 
End Sub
 

Om någon har några tips så skulle jag vara väldigt tacksam