How do I get code to select ever third column in the used range?
TX
Code: Select all
Sub EachThird()
Dim rRng As Range, i As Long
Set rRng = ActiveSheet.UsedRange
For i = 1 To rRng.Columns.Count Step 2
'Set rRng = Application.Union(??, rRng.Columns(i))
Next i
rRng.Select
End Sub