Paste this into a REGULAR MODULE :
Code:
Option Explicit
Sub AutoRngSel()
ActiveCell.Offset(, 4).Resize(34, 4).Select
End Sub
You will need a COMMAND BUTTON on the sheet connected to this macro.
Select the upper left cell of the range to be highlighted .. click the button.