Excel VBA adds a hyperlink to a form to link to another sheet

Question

I have a macro that creates a summary sheet at the beginning of a workbook. Forms are created and marked after sheets in the book, and then hyperlinks are added to the shapes to redirect to these sheets, however, when I recorded a macro to do this, the generated code:

ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1")).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=""

The hyperlinks created manually in excel while recording the macro are just fine, and when you hover over them they display the file path and "- Sheet! A1", but they don't seem to add the link location to the address part of the macro. Does anyone know the code that should go in this section of the address in order to link to the sheet?

Answer 1

, . , , SubAddress. Address .

, , , . , , , . , .

, , 6 4.

Sub SetHyperlinkOnShape()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet6")

    Dim hyperLinkedShape As Shape

    Set hyperLinkedShape = ws.Shapes("Rectangle 1")

    ws.Hyperlinks.Add Anchor:=hyperLinkedShape, Address:="", _
        SubAddress:="Sheet4!C4:C8", ScreenTip:="yadda yadda"
End Sub