Worksheets(i).Range(dings).FormatConditions.Add Type:=xlExpression, Formula1:=Replace(
"=$AR"
& Selection.Row, Chr(34),
""
)
Worksheets(i).Range(dings).FormatConditions(ActiveSheet.Range(dings).FormatConditions.Count).SetFirstPriority
Worksheets(i).Range(dings).FormatConditions(1).ModifyAppliesToRange (ActiveSheet.Range(dings).MergeArea)
With
Worksheets(i).Range(dings).FormatConditions(1)
.font.color = RGB(255, 255, 255)
.Interior.Pattern = XlPattern.xlPatternNone
.Interior.color = RGB(255, 255, 255)
.Borders(xlLeft).LineStyle = -4142
.Borders(xlTop).LineStyle = -4142
.Borders(xlBottom).LineStyle = -4142
.Borders(xlRight).LineStyle = -4142
.StopIfTrue =
True
End
With
Worksheets(i).Range(dings).
Select
Selection.Locked =
True
Selection.FormulaHidden =
True