VBA selecting an input range of cells
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.
--
Gary''s Student - gsnu201001
"Colin Hayes" wrote:
In article , Gary''s
Student writes
Something like:
Sub PickaRanage()
Dim s1 As String, s2 As String, s3 As String
s1 = Application.InputBox(prompt:="Enter address of first cell", Type:=2)
s2 = Application.InputBox(prompt:="Enter address of last cell", Type:=2)
Range(s1 & ":" & s2).Select
End Sub
HI
OK Thanks - that's perfect.
Out of interest , if you made the s1 line Type:=8 , what change would
you need to make in the
Range(s1 & ":" & s2).Select
line?
Best Wishes
.
|