When using Offset, the count starts 1 cell from fhe current cell. To get
three cells wide and twentyfive deep you need two more columns and
twentyfour more rows.

Sub vert()
If Selection.Column 3 Then
Range(Selection, Selection.Offset(24, -2)).Select
End If
End Sub

"Know Enough to be Dangerous" wrote:

Standard_guy-

The VBA code Luke M is correct except for one thing. Your post
mentions you want to move left from the active cell. Therefore,
change the 3 in Luke's code to a -3. Also, be warned, you will get an
error message if you process this line of code and the active cell is
in columns A, B, or C.