If Statement Assessing Worksheet Tab Color

[Ark68]

I am trying to create an if statement that will execute code if a particular worksheet tab is any color other than red.
I have tried this ...

If Worksheets("Master").Tab.color <> vbRed Then

but is errs with a "Subscript out of range" error with that line though.

The worksheet "Master" exists in the active workbook. It's tab is not red, so the code following the if statement should be execute.

Please help?

 

[ttray33y]

I am trying to create an if statement that will execute code if a particular worksheet tab is any color other than red.
I have tried this ...

If Worksheets("Master").Tab.color <> vbRed Then

but is errs with a "Subscript out of range" error with that line though.

The worksheet "Master" exists in the active workbook. It's tab is not red, so the code following the if statement should be execute.

Please help?

not tested tho.

try :

Sub test()

Dim tsh As Worksheet
Dim tCol As String


Set tsh = ActiveWorkbook.Sheets("Master")
tCol = vbred


    If tsh.Tab.Color <> tCol Then
        With tsh
            .Tab.Color = tCol
        End With
    End If
    
End Sub

 

[Ark68]

Hello ttray33y,

My apologies for taking so long to acknowledge your help. Only now have I gotten around to work on this issue.
I do appreciate the effort! Unfortunately, I still get the same error at the same point with your code. Other than setting the worksheet object and the vbcolor to variables I see little difference to what I had originally used.

I'm still searching for a solution ... anyone?

Here is some code ... ttray's contribution in purple, my original in blue.

ws_name = "WS " & format(ws_vh.Range("B17"), "dd-mmm-yy") & ".xlsx"
        If Dir(path_name & ws_name) <> "" Then '.tglb_wpl_crtt.BackColor = RGB(0,153,211)
            Workbooks.Open (path_name & ws_name)
            Set wb_name = Workbooks(ws_name)
            wb_name.Windows(1).Visible = False
            bt = 0
            With wb_name
                tCol = vbRed
                If Worksheets("Master").Tab.color <> tCol Then  '<--- Subscript out of range.
                    .tglb_master.Enabled = True
                    .tglb_master.BackColor = RGB(0, 153, 211)
                    bt = bt + 1
                End If
                
                If Worksheets("CUE").Tab.color <> vbRed Then '<--- Subscript out of range.
                    .tglb_cue_ws.Enabled = True
                    .tglb_cue_ws.BackColor = RGB(0, 153, 211)
                    bt = bt + 1
                End If
      ...

 

[Fluff]

I suspect that you are missing a . from infront of the worksheet ie

If [COLOR=#ff0000].[/COLOR]Worksheets("CUE").Tab.color <> vbRed Then

Also you have a lower case c on color is that in your actual macro?
Because it would normally be converted to an upper case C

 

[Ark68]

Hello Fluff ...
That was a correct suspicion! The period solved the problem indeed.

 

[Fluff]

Glad to help & thanks for the feedback