Try this:

Sub test()
Dim fName As String, wb As Workbook
Dim rng As Range

fName = Application.GetOpenFilename()
If fName < "False" Then
Set wb = Workbooks.Open(fName)
Else
Exit Sub
End If
Set rng = Application.InputBox("Select a cell", Type:=8)

MsgBox "Range: " & rng.Address & vbLf & _
"Filename: " & wb.Name & vbLf & _
"Sheet: " & ActiveSheet.Name
wb.Close SaveChanges:=False
End Sub

--
Dan


On Dec 18, 9:27 am, wrote:
hi,

i want the user to open an excel workbook of his choice and then
choose a range from that excel workbook.

this, of course, has to happen during the macro run.
and the macro needs to capture the name of the new workbook, the sheet
name and range chosen.

when using inputbox, it works when i choose a range within the same
workbook as is the macro.
but when i try it with another workbook - nothing is returned.

any ideas?

I am using the code that I found on one of the pages on this very
forum...

Sub tester1()

On Error Resume Next

Set rng = Nothing
Set rng = Application.InputBox("Select a cell with the mouse",
Type:=8)
MsgBox rng.Address
rng.Parent.Activate
If Not rng Is Nothing Then
rng(1).Select
Else
MsgBox "You didn't select"
End If

End Sub

Thanks