VBA超级链接简单写法

前两天在网上看到添加或者修改超级链接要一大堆代码：

    Set Ws = ActiveSheet
    Set linkLocation = Ws.Cells(1, 1)
    linkAddress ="自己写"
            Ws.Hyperlinks.Add Anchor:=linkLocation, _
                        Address:=linkAddress "核心语句”

好麻烦，今天通过摸索，发现一个更加简单的代码，可以添加，可以修改，具体如下：

 Cells(1, 1).Hyperlinks(1).Address="自己写"

如果代码有什么问题，可以指导