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

--
Gary''s Student - gsnu201001


"Colin Hayes" wrote:


Hi

I have a small request for help with code.

I need a simple macro to have popups request the first and last cells in
a range , and then to select the range indicated in the popups.

Can someone help?

Grateful for any assistance
.