With Workbook.Sheets[1].Hyperlinks[1] do begin Address := 'c:\documents\book.xls'; SubAddress := 'B10:D15'; end;