Something like this in the worksheet_change() event
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Target.Value = 120 Then
Me.Tab.Color = RGB(255, 0, 0)
Else
Me.Tab.Color = xlNone
End If
End If
End Sub