Samir,

If you want just the column number, use code like

Dim ColNum As Integer
ColNum = ActiveCell.Column

If you want a Range reference to the column, use

Dim ColRng As Range
Set ColRng = ActiveCell.EntireColumn
' or
Set ColRng = Application.Intersect(ActiveSheet.UsedRange,
ActiveCell.EntireColumn)


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Samir" wrote in message
...
Hi Everyone,
Need some help to finish a project. The procedure requests
user to select a column in a worksheet by either selecting
the entire column or just selecting a single cell in that
column. The idea is that once selection is made, data
would be generated from that column. However, I am not
sure how do I determine which column in the work sheet was
selected by the user. Any help is appreciated. Thanks in
advance.