Column Number via VBA

[omairhe]

Hey all,

I am trying to get the column number in Private Sub Workbook_SheetChange event code. So that if I change a cell's value the code shall output me the column number of where the change has occurred.


For instance I change a value of cell G5

In worksheet name = HSheet and cell B2 output value 7

Is possible ?

 

[jim may]

[TABLE="width: 64"]
<tbody>[TR]
[TD="width: 64"]In Cell B2 enter =COLUMN(Sheet1!G7)[/TD]
[/TR]
</tbody>[/TABLE]


but in VBA that would be:

Range("B2"). Value = Range("G7").column

 

[Kenneth Hobson]

Application.EnableEvents = False
Worksheets("HSheet").[B2] = Target.Column
Application.EnableEvents = True