Select to the last column -1, VBA

[doriannjeshi]

Hi,
I need to select a range ctrl+shift right to the end column -1 column with VBA

 

[Skyybot]

Assuming you start from Selected Cell... Paste this in Sheet code module that you want to affect.

Sub SelectCells()
Range(Selection, Me.Columns.End(xlToRight).Offset(0, -1)).Select
End Sub

 

[doriannjeshi]

Thank you @Skyybot

 

[doriannjeshi]

when I run the macro

 

[Skyybot]

Code has to be pasted into the Sheet code module. Otherwise change Me to Activesheet.

 

[Peter_SSs]

If that code does what you want, then there is no need for either 'Me' or 'ActiveSheet' since any selection can only be on the active sheet. This would do the same thing

Sub SelectCells()
Range(Selection, Columns.End(xlToRight).Offset(0, -1)).Select
End Sub

Keep in mind too that you rarely need to actually select any range to work with it and selecting slows your code.