In diesem Beispiel wird dem Hyperlink der ersten Form die Position eines Bereichs hinzugefügt.
Worksheets(1).Shapes(1).Hyperlink.SubAddress = "A1:B10"