|re: so if A1 is 1, I want to be able to click on the text in D1 and have it take me to the Sheet labeled "1" |
So the numbers in Column A really have nothing to do with the links, other than as a "visual" for the user to know what sheet they will go to if they click in Column D.
How about this:
For shtLink = 1 To Sheets.Count
ActiveSheet.Hyperlinks.Add Anchor:=Cells(shtLink, "D"), _
Address:="", SubAddress:="'" & shtLink & "'!Print_Area"
Note: This will create the hyperlinks in Column D of the ActiveSheet for every sheet in your workbook. You can modify the start and ending numbers as required.
I suggest you try this in a backup copy of your book because macros cannot be easily undone.
This code will remove all hyperlinks in Column D if things go badly with the other code.