Select Case statement make it easier:
[VBA] Select Case CC.Tag
Case "Date1", "Date2", "Date3"
CC.Range.Shading.BackgroundPatternColor = wdColorAutomatic
Case Else
CC.Range.Shading.BackgroundPatternColor = wdColorRose
End Select
[/VBA]
Select Case statement make it easier:
[VBA] Select Case CC.Tag
Case "Date1", "Date2", "Date3"
CC.Range.Shading.BackgroundPatternColor = wdColorAutomatic
Case Else
CC.Range.Shading.BackgroundPatternColor = wdColorRose
End Select
[/VBA]