Example:

You have the following table in range A1:C3
1 Bk1 C:\Book1.xls
2 Bk2 C:\Book2.xls
3 Bk3 C:\Book3.xls

In A10, you enter a number from 1 to 3
In B10, your formula:
=VLOOKUP(A10,A1:C3,2)

The following code should be entered in the module for the above sheet.
This will add the link to you cell B10

Private Sub Worksheet_Change(ByVal Target As Range)
if Target.Address = "$A$10" then
Range("B10").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection,
Address:=WorksheetFunction.VLookup(Range("A10"), Range("A1:C3"), 3)
end if
End Sub


Mangesh


--
mangesh_yadav
------------------------------------------------------------------------
mangesh_yadav's Profile: http://www.excelforum.com/member.php...o&userid=10470
View this thread: http://www.excelforum.com/showthread...hreadid=375191