If cell A1 in any sheet except "Test_Template" in the workbook = "FAIL" then the sheets tab turns red VBA

[Tom98]

Hi, I have a workbook with multiple sheets in it. I want to be able to include the function that if Cell A1 in any sheet EXCEPT sheet "Test_Template" equals "FAIL" then that sheet tab colour changes to red. Any help with how to go about adding this in would be great.

TIA

 

[Tom98]

If you want to use a Button:
Put this script in your button:

Sub Check_A1_Range_For_Fail()
'Modified  10/28/2020  7:46:20 AM  EDT
Application.ScreenUpdating = False
Dim i As Long


For i = 1 To Sheets.Count
   
    If Sheets(i).Name <> "Test_Template" Then
        Select Case Sheets(i).Range("A1").Value
            Case "FAIL": Sheets(i).Tab.Color = vbRed
            Case Else: Sheets(i).Tab.ColorIndex = xlColorIndexNone
        End Select
    End If
Next

Application.ScreenUpdating = True
End Sub

Great! Thanks

 

[My Aswer Is This]

Great! Thanks

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.