One way:

Dim i As Long
Set myRng = .Cells(3, 5)
For i = 5 To .Cells(.Rows.Count, 5).End(xlUp).Row Step 2
Set myRng = Union(myRng, .Cells(i, 5))
Next i
End With




In article ,
"Jeff" wrote:

Hello,

this is my range:
Set myRng = .Range("E3", .Cells(.Rows.Count, "E").End(xlUp))
It is possible to set my range to jump 2 rows.
Example. E3, E5,E7,E9 INSTEAD E3,E4,E5,E6