Option Explicit
Sub testme()
Dim myRng As Range
Dim wkbk As Workbook

On Error Resume Next
Set myRng = Application.InputBox(prompt:="Click on a cell", Type:=8)
On Error GoTo 0

If myRng Is Nothing Then
Exit Sub
End If

MsgBox myRng.Parent.Name 'worksheet
MsgBox myRng.Parent.Parent.Name 'workbook

'so...
Set wkbk = myRng.Parent.Parent
'....

End Sub



Kobayashi wrote:

If so, how? If not, any suggestions?

Many thanks,

Adrian

--
Kobayashi
------------------------------------------------------------------------
Kobayashi's Profile: http://www.excelforum.com/member.php...nfo&userid=871
View this thread: http://www.excelforum.com/showthread...hreadid=273314

--

Dave Peterson