Sub Select_alt_col()
Dim column_Let As String
Dim range_St As String
Dim i As Long
Dim firstCol, lastCol As Long
firstCol = Selection.Column
lastCol = Selection.Columns.Count + firstCol - 1
For i = firstCol To lastCol Step 2
column_Let = Chr(i + 64)
range_St = range_St & "," & column_Let & ":" & column_Let
Next i
range_St = Mid(range_St, 2)
Range(range_St).Select
End Sub