Thanks, using the mouse option was just what I was looking for.


--
AH


"Gary''s Student" wrote:

Type 8 is useful if you want the user to do the selection with the mouse
rather than the keyboard:

Sub dural()
Dim r As Range, s As String
s = "select cells to copy with mouse "
Set r = Application.InputBox(s, Type:=8)
r.Select
Selection.Copy
End Sub

--
Gary''s Student - gsnu200747


"Allan" wrote:

I need to get the row number from a sheet by using an input box
type = 8 ?
Once I have the row it will be used to copy selected columns to another sheet.

Right now I' using this:

Sheets("Tickler").Select
myvar = Application.InputBox("Enter Line number to retrieve Row", "OPTIONS", _
Type:=1)

Range(Cells(myvar, 16), Cells(myvar, 22)).Select
Selection.Copy
...
AH