You could use the calculate event
[vba]
Private Sub Worksheet_Calculate()
With Me.Range("D5")
If IsDate(.Value) Then
Me.Tab.ColorIndex = xlColorIndexNone
If Abs(.Value - Date) <= 7 Then
Me.Tab.Color = vbYellow
End If
End If
End With
End Sub
[/vba]
You could use the calculate event
[vba]
Private Sub Worksheet_Calculate()
With Me.Range("D5")
If IsDate(.Value) Then
Me.Tab.ColorIndex = xlColorIndexNone
If Abs(.Value - Date) <= 7 Then
Me.Tab.Color = vbYellow
End If
End If
End With
End Sub
[/vba]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Posting Permissions
Reply With Quote