Select every x cell in a range

Closed
matinau - Mar 11, 2010 at 06:58 PM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Mar 12, 2010 at 04:24 AM
Hello, can anyone help?
I need a macro that will select the range c1:j1 and then every other 9 rows down i.e. c9:j9, c18:j18 etc.. is this possible?

1 response

rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Mar 12, 2010 at 04:24 AM
Try this

sub selectRange()

Dim myRangeCol As Range

Dim lLastRangeStartRow As Long

    Set myRangeCol = Range("c1:j1")
    lLastRangeStartRow = 45
    
    For i = 9 To lLastRangeStartRow Step 9
    
        Set myRangeCol = Union(myRangeCol, Range(Cells(i, "C"), Cells(i, "J")))
    Next
    
    myRangeCol.Select


End Sub
0