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
        rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Mar 12, 2010 at 04:24 AM
        Related:         
- Select every x cell in a range
 - Vba select case like - Guide
 - How to select at the rate in laptop - Guide
 - How to select all in close friends on instagram - Instagram Forum
 - Insert a new sheet at the end of the tab names and paste the range names starting in cell a1. autofit columns a:b and name the worksheet as range names. ✓ - Excel Forum
 - Insert a new sheet at the end of the tab names and paste the range names starting in cell a1. autofit columns a:b and name the worksheet as named ranges. ✓ - Excel Forum
 
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
    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