Conditional formatting using specified range instead of With Selection statement

[slouw]

Why does this work when I have only a single FormatConditions(1) statement:

'   Single FormatConditions(1) statement
 '   Why does this work
Sub CF_NO_with()
'                            Row 5
'                               Column1
    Range(Cells(303, 5), Cells(308, 24)).FormatConditions.Delete
    Range(Cells(303, 5), Cells(308, 24)).FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(column(),2)=0"
    Range(Cells(303, 5), Cells(308, 24)).FormatConditions(1).Interior.ColorIndex = 15
End Sub

But this this fails when I have multiple FormatConditions(1) statements:

'   Multiple FormatConditions(1) statement
'   Why does this NOT work ((if you have multiple FormatConditions(1) statements?))
Sub CF_NO_with()
'                            Row 5
'                               Column1
    Range(Cells(303, 5), Cells(308, 24)).FormatConditions.Delete
    Range(Cells(303, 5), Cells(308, 24)).FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(column(),2)=0"
    Range(Cells(303, 5), Cells(308, 24)).FormatConditions(1).Interior.ColorIndex = 15
    ' Works up to here. Next line is an error why?
    Range(Cells(303, 5), Cells(308, 24)).FormatConditions(1).PatternColorIndex = 15
    Range(Cells(303, 5), Cells(308, 24)).FormatConditions(1).Pattern = xlGray75

End Sub

This is my control script which does work:

' This works ((Control)
Sub CF_with()
    Range(Cells(303, 5), Cells(308, 24)).FormatConditions.Delete
    Range(Cells(303, 5), Cells(308, 24)).Select
    With Selection
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(column(),2)=0"
        With .FormatConditions(1).Interior
            .ColorIndex = 15
            .PatternColorIndex = 15
            .Pattern = xlGray75
        End With
    End With
 End Sub

[alpha]

Next line is an error why?

Range(Cells(303, 5), Cells(308, 24)).FormatConditions(1).PatternColorIndex = 15
Range(Cells(303, 5), Cells(308, 24)).FormatConditions(1).Pattern = xlGray75

Must be:

Range(Cells(303, 5), Cells(308, 24)).FormatConditions(1).interior.PatternColorIndex = 15
Range(Cells(303, 5), Cells(308, 24)).FormatConditions(1).interior.Pattern = xlGray75

[slouw]

Doh!!!
Thank you much appreciated....

[alpha]

You're welcome !