Private Sub Worksheet_Calculate()
With ActiveSheet.Tab
.TintAndShade = 0
If Range("AX9").Value >= 1 Then
.Color = 5296274
Else
.Color = 255
End If
End With
End Sub
Private Sub Worksheet_Calculate()
With Range("AX9").Parent.Tab
.TintAndShade = 0
If Range("AX9").Value >= 1 Then
.Color = 5296274
Else
.Color = 255
End If
End With
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Tab.ColorIndex = IIf(Sh.[AX9] >= 1, 4, 3)
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not IsEmpty(Sh.[AX9]) Then
Sh.Tab.ColorIndex = Switch(Sh.[AX9] >= 1, 4, Sh.[AX9] = 0, 3)
End If
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not IsEmpty(Sh.[AX9]) Then
Sh.Tab.ColorIndex = 3 - (Sh.[AX9] >= 1)
End If
End Sub
Private Sub Worksheet_Calculate()
With Range("AX9").Parent.Tab
.TintAndShade = 0
If Range("AX9").Value =< -5 Then
.Color = 5296274
Else
If Range("AX9").Value < -4 And < 0 Then
.Color = 49407
End If
Else
.Color = 255
End If
End With
End Sub
With Range("AX9").Parent.Tab
.TintAndShade = 0
If Range("AX9").Value <= -5 Then
.Color = 5296274
ElseIf Range("AX9").Value > -5 And Range("AX9").Value < 0 Then
.Color = 49407
Else
.Color = 255
End If
End With
Private Sub Worksheet_Calculate()
With Range("AX9").Parent.Tab
.TintAndShade = 0
If Range("AX9").Value <= -0.05 And Range("AX9").Value >= 0 Then
.Color = 5296274
ElseIf Range("AX9").Value > -0.05 And Range("AX9").Value < 0 Then
.Color = 49407
Else
.Color = 255
End If
End With
End Sub