Dim fileName As String

fileName = Range("A1") ' or whatever cell your data is in

Workbooks.Open(fileName)

that should do the trick... be sure to make certain it won't ever tr
to open non-existant files.

if len(Dir(fileName)) = 0 then
MsgBox("File does not exist")
else
Workbooks.Open(fileName)
End If

or something like tha

--
TommySzalapsk
-----------------------------------------------------------------------
TommySzalapski's Profile: http://www.excelforum.com/member.php...fo&userid=2556
View this thread: http://www.excelforum.com/showthread.php?threadid=39055