Sub Button_click()
set rng = workbooks("OtherBook.xls").Worksheets("Sheet1") _
.Range("A1:Z200")
res = Application.Match(activecell.Value,rng,2,False)
if not iserror(res) then
msgbox "Value is " & res
else
msgbox "Value not found"
End if
End Sub

If you want index(match then provide the specifics.


--
Regards,
Tom Ogilvy

mark long wrote in message
om...
Im trying to have an active cell referenced by a popup box when some
one clicks on a button, that will then index/match the reference cell
to data base in a different workbookdb. Any help is greatly
appreciated.


Thanks for any help
Mark