Get the last column of a selection

[DataBlake]

I want to store lastCol as a variable equal to the last column in the current selection

Sub selectionEDIT()
Dim sSelect As Range
Dim lastCol As Long
Dim lastRow As Long

Set sSelect = Selection
lastCol = sSelect.SpecialCells(xlCellTypeLastCell).Column
lastRow = sSelect.SpecialCells(xlCellTypeLastCell).Row

but with this code the range of the selection doesnt seem to be doing anything. it just counts the entirety of the worksheet's columns.
where if i have data from a1:m7 and i select d1:h5 the lastCol value should be 5 and the row be 5.

what do?

 

[Fluff]

How about

lastCol = sSelect.Columns.Count + sSelect.Column - 1
lastRow = sSelect.Rows.Count + sSelect.Row - 1

 

[DataBlake]

can you explain the logic behind the "+sSelect.Column - 1" ?
and why this works and every other form of this seems to fail in this situation?
works perfectly though, thank you.

 

[Fluff]

If you select C3:G7 the count of both columns & rows will give 5, so to get to 7 you have to add the 1st column/row number (in this case 3) which gives 8 & then subtract 1

 

[DataBlake]

that is unnecessarily complicated oh excel. . .
thanks for the info Fluff.

 

[Fluff]

You're welcome & thanks for the feedback

 

[Fluff]

If you think that's complicated how about

Sub Blakeskate()
Dim sSelect As Range
Dim lastCol As Long
Dim lastRow As Long

Set sSelect = Selection
lastCol = Split(sSelect.Address(, , xlR1C1), "C")(2)
lastRow = Split(Split(sSelect.Address(, , xlR1C1), "R")(2), "C")(0)
End Sub

 

[DataBlake]

If you think that's complicated

no thanks, i'll pass.
keep your R1C1 away from me.