Actually, the Excel inputbox supports the type 8 syntax

Sub SelectRange()
Dim rng As Range
On Error Resume Next
Set rng = Application.InputBox("Select cell with you mouse", Type:=8)
On Error GoTo 0
If rng Is Nothing Then
MsgBox "You clicked cancel; hit OK/enter to exit macro"
Exit Sub
End If
MsgBox "Range selected is " & rng.Address(0, 0, , True)

End Sub


--
Regards,
Tom Ogilvy


"GJones" wrote in message
...
Hi David;

One way is to use a call for an Input Box and then declare
the type to 8. That will force the user to return a range
that you can then use.

Thanks,

Greg


-----Original Message-----
is there any way i can moniter the next cellwhich is
selected ? It occurs inthe midle of a macro and the user
needs to select a cell by clicking on it, and the value
of that is used in the rest of the macro.

this can either be done with a vba macro or a userform
but im guessing the code will all b the same.

Thank you for youre help
.