Here's a macro that lists sheet names!

I found a macro that will list all the sheets in a workbook.
Just replace the two "MasterSheet" with the sheet name you want the data in.
(it will erase that sheet and list all the sheets in your workbook.


Can anyone adjust this macro so it only lists the sheets with tab color red?




Macro:

Sub ListSheets()

Dim ws As Worksheet
Dim x As Integer

x = 1

Sheets("MasterSheet").Range("A:A").Clear

For Each ws In Worksheets

     Sheets("MasterSheet").Cells(x, 1) = ws.Name
     x = x + 1

Next ws

End Sub