returning last column of active range in VBA

[bolo]

Hi,

Imagine you have selected a range A1:C4.

How do you return the last column of the selected range in VBA. = IE 3 in the above example

I have tried using activesheet.usedrange but this only seems to return the First column.
Thanks

Bolo

 

[facethegod]

Try

Sub tst()
Dim r As Range, x As Integer
Set r = Range("A1:C4")
x = r.Columns.Count + r.Cells(1, 1).Column - 1
Debug.Print x
End Sub

 

[Peter_SSs]

Hi,

Imagine you have selected a range A1:C4.

How do you return the last column of the selected range in VBA. = IE 3 in the above example

I have tried using activesheet.usedrange but this only seems to return the First column.
Thanks

Bolo

<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> LastCol()<br>    <SPAN style="color:#00007F">Dim</SPAN> lc <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>    <br>    <SPAN style="color:#00007F">With</SPAN> Selection<br>        lc = .Column + .Columns.Count - 1<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br><br></FONT>