Select every other cell in a row

[learninman]

Hi
I recently made a thread about selecting every other row and recieved help and got this code:


Sub OtherRow()Dim
LR As Long, i As Long, r As Range
With Sheets("Sheet1")
LR = .Range("A" & Rows.Count).End(xlUp).Row
Set r = .Rows(1) For i = 3 To LR Step 2
Set r = Union(r, .Rows(i))
Next i
End With
r.Copy Destination:=Sheets("Sheet2").Range("A1")
End Sub


</PRE>
But I am in need of instead of selecting every other row or column, I need to select every other cell in a row. Is this possible?

 

[VoG]

Try like this - change the red 1s to the row number

Sub OtherCell()
Dim LC As Long, i As Long, r As Range
With Sheets("Sheet1")
    LC = .Cells(1, Columns.Count).End(xlToLeft).Column
    Set r = .Cells(1, 1)
    For i = 3 To LC Step 2
        Set r = Union(r, .Cells(1, i))
    Next i
End With
r.Copy Destination:=Sheets("Sheet2").Range("A1")
End Sub