Hello Edmund,

Here is the macro to "bookmark" your parts on the worksheet. Change th
Worksheet name (its commented in the code) to whatever the name of you
worksheet is. The example assumes Sheet1.


Code
-------------------

Sub BookmarkParts()

Dim LinkCell As Range
Dim PartCell As Range
Dim Wks As Worksheet

'Put your worksheet name inside the quotes
Set Wks = Worksheets("Sheet1")

For Each PartCell In Wks.Range("B1:Z1")
I = I + 1
With Wks
Set LinkCell = .Cells(I, "A")
.Hyperlinks.Add Anchor:=LinkCell, Address:="", SubAddress:=PartCell.Address, TextToDisplay:=PartCell.Value
End With
Next PartCell

End Sub

-------------------


Sincerely,
Leith Ros

--
Leith Ros
-----------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...fo&userid=1846
View this thread: http://www.excelforum.com/showthread.php?threadid=55798