Excel VisualBasic Script

Sub SelectIt()
  [A1:A10,C1:C10,E1:E10].Select
End Sub