Cambiare colore alla tag di un foglio excel

vorrei che al cambiare del valore della cella B2 del foglio "Alarms", cambiasse il colore della tag del foglio medesimo.
Purtroppo mi da sempre "errore di runtime 9, indice non incluso nell'intervallo" e non so come risolvere il problema.
allego il listato della macro che ho scritto nel foglio "Alarms".
Ringrazio chi mi volesse aiutare.
Cordialmente

Private Sub Worksheet_Change(ByVal Target As Range)
Dim alrm As Integer
alrm = Sheets(“Alarms”).Range(“B2”).value
Select Case alrm
Case 0
green_tab

Case Is > 0
red_tab
End Select

End Sub