Sub Macro1()
Range(Cells(1, 1), Cells(400, 10)).Select
End Sub


Ryan---


"Fred Holmes" wrote:

How can I modify the following code so that the response to the
InputBox can be entered in R1C1 notation? The workbook is set to use
R1C1 notation in formulae in cells.

Sub Input_Range_Select()
Dim SR As String
SR = InputBox(Prompt:="What is the Range to be Selected?")
Range(SR).Select
End Sub

A1:J400 works as a response.

I would like to be able to type in R1C1:R400C10, which does not work.

TIA

Fred Holmes