Something like...

Range("B10").Formula = _
"=HYPERLINK(""C:\Documents and Settings\My Documents\Predicts.xls"",""Predicts.xls"")"

The first argument is the file path, the second argument is the text to appear in the cell.
The tricky part is entering the correct number of quote marks.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware

"GGO"
wrote in message
Is it possible to write a macro that transform the path to an Execl workbook
in a hypertext in a spreadsheet so that user open it by cliking on the cell
containing the hypertext??