Sub test()
x = Range("D3").FormatConditions(3).Formula1
z = Array("D", "G", "J", "M", "P", "S", "V", "Y", "AB", "AE", "AH")
For n = 3 To 18
For a = 0 To UBound(z)
Range(z(a) & n).FormatConditions(3).Modify xlExpression, , Replace(x, "2008", "2009")
Next a
Next n
End Sub