In article , Gary''s
Student writes
Good question:

Sub Range8()
Dim r1 As Range, r2 As Range
Set r1 = Application.InputBox(prompt:="Enter address of first cell", Type:=8)
Set r2 = Application.InputBox(prompt:="Enter address of last cell", Type:=8)
Range(r1, r2).Select
End Sub

and you can use the mouse to service the input boxs.

Hi

OK Thanks. This allows input by keyboard and/or mouse I see.

Perfect first time again. I'm grateful for your time and expertise.


Best wishes