Sub Input_Range_Select()
Dim SR As String
SR = InputBox(Prompt:="What is the Range to be Selected?")
If SR = "" Then Exit Sub
SR = Application.ConvertFormula(SR, xlR1C1, xlA1)
Range(SR).Select
End Sub

There is also the Application.Inputbox which is more geared to ranges.

Sub Input_Range_Select2()
Dim SR As Range
On Error Resume Next
Set SR = Application.InputBox(Prompt:="What is the Range to be
Selected?", Type:=8)
On Error GoTo 0
If Not SR Is Nothing Then
SR.Select
End If
End Sub

--
Tim Zych
http://www.higherdata.com
Workbook Compare - Excel data comparison utility
Free and Pro versions

"Fred Holmes" wrote in message
...
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