I have a workbook containing about 180 sheets and I am trying to create a summary tab (named "Course List") that creates a hyperlink to each tab using a formula to reference the course name. For example, cell A5 reads as "Building Deeper Relationships and Expanding Services to Existing Clients" and is a hyperlink to that tab, but the actual text within the cell would be =BDRES!B2. Also, cell B5 (the Delivery Method) would read as "Live, Virtual Training" and would be a reference to =BDRES!B3 but does not have to be a hyperlink.
I have been able to create a list of references to the tabs, but I have been able to change them into hyperlinks. I've tried both Range().Formula = "=HYPERLINK . . . and ActiveSheet.Hyperlinks.Add . . . unsuccessfully. I'm sure I'm missing something but I've tried so many versions I don't know what to test next.
Here is the code I currently have (and btw, NWb is the number of sheets in the workbook):
For RowNum = 5 To (NWb + 3)
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"A" & RowNum, TextToDisplay:="='" & Sheets(RowNum - 3).Name & "'!B2"
' Range("A" & RowNum & ":B" & RowNum).Formula = _
' Array("='" & Sheets(RowNum - 3).Name & "'!B2", "='" & Sheets(RowNum - 3).Name & "'!B3")
Next RowNum
The comments are my attempt to just list the references (not as hyperlinks) and I got that done. Can someone please provide some guidance for the hyperlink part?
Thanks
Bookmarks