Jon

Here's one way:

Sub test()
Dim FormatRange As Range

With Sheets("Sheet1")
Set FormatRange = Union(.Rows(3), .Rows(6), .Rows(9))

FormatRange.Interior.ColorIndex = 3
End With

End Sub


--
Best Regards
Leo Heuser
MVP Excel

Followup to newsgroup only please.

"Jon" skrev i en meddelelse
...
How do I programmatically select non-adjacent rows, in
order to change the format?