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