Hi all,
I am applying several conditional formats to a sheet with macros. All of them are set up successfully but the one below:
With ThisWorkbook.Sheets("Test").Range("$D$13:$D$1500,$S$13:$T$1500,$V$13:$AB$1500,$AT$13:$BE$1500,$CI$13:$CK$1500,$CO$13:$CQ$1500,$DA$13:$EC$1500,$FN$13:$FQ$1500,$FU$13:$FW$1500,$GG$13:$HI$1500,$IT$13:$IW$1500,$JA$13:$JC$1500,$JM$13:$KO$1500,$LZ$13:$MC$1500,$MG$13:$MI$1500,$MS$13:$NU$1500,$PF$13:$PI$1500,$PM$13:$PO$1500,$PY$13:$RA$1500,$SL$13:$SO$1500,$SS$13:$SU$1500,$TE$13:$UG$1500,$VR$13:$VU$1500,$VY$13:$WA$1500,$O$13:$P$1500")
.FormatConditions.Add Type:=xlExpression, Formula1:="=OR($D13=""DROP"",$E13=""INACTIVE"")"
With .FormatConditions(.FormatConditions.Count)
.SetFirstPriority
.StopIfTrue = True
With .Interior
.Color = RGB(178, 188, 198)
End With
With .Font
.Bold = False
.Italic = False
.Color = RGB(132, 146, 160)
End With
End With
End With
I get a run-time error 1004. I assume there's too many ranges referenced? I tried Union(Range( as well, but no luck...
Bookmarks