Используйте код ниже:
' Add hyperlink to a cess on Sheet2 Sheets("Sheet2").Hyperlinks.Add _ ' Hyperlink must follow to a single cell A1 on Sheet1 ' To follow another object (multicell range, chart, etc.) specify it Anchor:=Sheets("Sheet1").Range("A1"), _ ' Address must be empty - it is local hyperlink Address:="", _ ' Specify destination address where hyperlink will be placed SubAddress:= "Sheet2!A1", _ ' Specify the text of a hyperlink TextToDisplay:="HyperLink to A1 on Sheet2"