Found it, next to the On Error <vbg

Bob

"Dave Peterson" wrote in message
...
Dim rng As Range
set rng = Application.Inputbox("Select a cell",Type:=8)
If rng Is Nothing Then
'do nothing
else
rng.select
End If

I bet you dropped a Not somewhere. Please check the floor near the pc.

Bob Phillips wrote:

Dim rng As Range

set rng = Application.Inputbox("Select a cell",Type:=8)
If rng Is Nothing Then
rng.select
End If

This techniwue allows you to select a range from within the inputbox,
and
that range is returned.

--
HTH

Bob Phillips

"steve" wrote in message
...
is there a way i can put an input box on my spread sheet, where the
user
can
type in a job # and it will take them to that cell?

--

Dave Peterson