How does one import a variable from another function into a subroutine

[vincecodegreeen]

In these lines of code I am adding hyperlinks to cells in a row. It shows my steps recorded but since there are some 4,000 cells I need a macro to do it automagically. The target cells are in sequential worksheets but in each case follow the sane pattern (i.e. P2, H3, X3, D4, etc.). Could I capture this routine for each sheet by the sub for each? If so how?
Range("B2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, address:="", SubAddress:= _
"'Max tree base'!P2", TextToDisplay:="'Max tree base'!P2"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, address:="", SubAddress:= _
"'Max tree base'!H3", TextToDisplay:="'Max tree base'!H3"
Range("B4").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, address:="", SubAddress:= _
"'Max tree base'!X3", TextToDisplay:="'Max tree base'!X3"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, address:="", SubAddress:= _
"'Max tree base'!D4", TextToDisplay:="'Max tree base'!D4"
Range("B6").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, address:="", SubAddress:= _
"'Max tree base'!L4", TextToDisplay:="'Max tree base'!L4"
Range("B7").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, address:="", SubAddress:= _
"'Max tree base'!T4", TextToDisplay:="'Max tree base'!T4"

 

[Jerry Sullivan]

Hi and Welcome to MrExcel,

Yes, you could use variables and repeat that pattern for each hyperlink to be created.

If you'll clarify the pattern you are using, I'll suggest some code.

What defines:
The first sheet of with hyperlinks; last sheet with hyperlinks
Pattern of Anchor cells to have hyperlinks added (including first cell and last cell)
Pattern of Hyperlink SubAddresses