Marco/VBA Code to make a shortcut for Selection of whole cell

[haider378]

AOA,

I need a Marco/VBA Code to make a shortcut for Selection of whole column and control should remain in active cell from where I selected whole column. [although ctrl+shift work fine]

Thanks in advance

Haider Ali

 

[Kamolga]

Sub test()
On Error Resume Next
Dim rng As Range
Set rng = ActiveCell
   rng.EntireColumn.Select
   rng.Activate
On Error GoTo 0
End Sub

 

[haider378]

thats great...thanks very much

Haider Ali

 

[Kamolga]

You are welcome