select non-adjacent cells using vba

[omairhe]

Hey,

The following code from one of the recent posts perform the task of selecting the cells starting from column A up until actively selected column.

These will select all cells in between. However I would like it to select column A and active column only, hence leaving the adjacent cells in between.

    Set c1 = ActiveCell
    Range(Cells(c1.Row, "A"), c1).Select
    c1.Activate

Will appreciate and thank you.

 

[footoo]

Set c1 = ActiveCell
Union(Cells(c1.Row, "A"), c1).Select
c1.Activate