Excel VBA
A macro I used to creat the hyperlinks to another sheet which is in sequence
Sub CreateLinks()
Dim i, j, NoNeeded As Integeri = 19 'copy source start row
j = 2 'copy destination start row
NoNeeded = 500 'number of links
Dim cellSelect As String
Dim cellTarget As String
For j = 2 To NoNeededcellSelect = "A" & CStr(j)
Range(cellSelect).Select
cellTarget = "!A" & CStr(i)
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=_ "'UNKNOWN (1)'" & cellTarget, TextToDisplay:="'UNKNOWN (1)'" & cellTargeti = i + 1
Next j
End Sub
Comments