You could use something like this:
Sub openit()
fname = WorksheetFunction.Substitute(Range("a19").Value, ".xls", "")
Workbooks.Open Filename:= _
"c:temp" & fname & ".xls"
End Sub
Just need to get the file path right...You could put this in the cell as well and get rid of "c:temp" &
Double quotes in this post should really be single quotes. Hope this helps. Cheers,
Nate
This message was edited by NateO on 2002-03-12 10:30