I know it's wrong, but I don't understand how something like this wouldn't work. Also, how would I get it to work and still do the same thing?Dim i As Integer i = 20 Do While i <= 2215 Range("Z3:Z19").Select Range(Selection, Selection.End(xlDown)).Select ActiveWindow.SmallScroll Down:=6Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="='Look up Tables'!Zi" 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 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False i = i + 1 Loop