Dim Values As Range
Dim CurrentSheet As Worksheet
Set CurrentSheet = ActiveWorkbook.ActiveSheet
Set Values = Rows(5)
For j = 0 To 20
For i = 1 To Values.Cells.Count - 1
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=Delimit2!$A$" & i, Formula2:="=Delimit2!$B$" & i
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
Color = -16383844
TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
PatternColorIndex = xlAutomatic
Color = 13551615
intAndShade = 0
End With
Next i
Next j
In this I code, I would like to increment column A to C and B to D after For loop of i gets over.