VBA code to change tab colours based on cell with formula on each sheet (60 sheets)

[dotpsn]

As header says - I have searched and searched but nothing has worked. I have 0 knowledge of VBA as I am only just learning about it now (big struggles so hoping to find some help here ).
I am hoping someone could possibly help get a script that will change the colour of each tab based on cell b4. Cell b4 will either say home or away (ideally green in this case) or be blank (colourless is fine).

Could someone PLEASE help???

Ps I am often quite stubborn and refuse to ask questions - I would rather research and find a solution but this has me stumped!!

 

[Georgiboy]

Maybe:

Sub test()
    Dim ws As Worksheet
   
    For Each ws In Sheets
        If LCase(ws.Range("B4").Value) = "home" Then
            ws.Tab.ColorIndex = 10
        Else
            ws.Tab.ColorIndex = xlNone
        End If
    Next ws
End Sub

 

[dotpsn]

Maybe:

Sub test()
    Dim ws As Worksheet
  
    For Each ws In Sheets
        If LCase(ws.Range("B4").Value) = "home" Then
            ws.Tab.ColorIndex = 10
        Else
            ws.Tab.ColorIndex = xlNone
        End If
    Next ws
End Sub

Thanks - I assume this may not work if the cell contains "away"???
I will run it now and check though!!

Thanks

 

[dotpsn]

Maybe:

Sub test()
    Dim ws As Worksheet
  
    For Each ws In Sheets
        If LCase(ws.Range("B4").Value) = "home" Then
            ws.Tab.ColorIndex = 10
        Else
            ws.Tab.ColorIndex = xlNone
        End If
    Next ws
End Sub

WORKED!!!! But those 'away' tabs are still colourless. Could you please add away to show as red????

 

[Georgiboy]

Change the word 'xlNone' to the number 3

 

[dotpsn]

Change the word 'xlNone' to the number 3

Sorry mate - there are three parts to it:
Home - green
Away - red
Blank - colorless

Thanks so much for your help!

 

[Georgiboy]

Maybe:

Sub test()
    Dim ws As Worksheet
  
    For Each ws In Sheets
        If LCase(ws.Range("B4").Value) = "home" Then
            ws.Tab.ColorIndex = 10
        ElseIf LCase(ws.Range("B4").Value) = "away" Then
            ws.Tab.ColorIndex = 3
        Else
            ws.Tab.ColorIndex = xlNone
        End If
    Next ws
End Sub