使用“插入超链接”对话框将链接添加到单元格

Question

我正在编写一个小宏，以将条目添加到我的已校准工具列表中。我想使用插入超链接对话框，以便用户可以选择一个文件，然后宏将在单元格中添加指向该文件的链接。这是我尝试过的：

If Link = True Then
    Range("H4") = Application.Dialogs(xlDialogInsertHyperlink).Show
End If

但是结果是单词“ TRUE”为蓝色并带有下划线，但是如果我单击它，它什么也没做

我想这是某种语法问题，但是我很难查找它，大多数结果与对话框无关。

Answer 1

感谢蒂姆·威廉姆斯的解决。这是我的解决方法

If Link = True Then
    Range("H4").Select
    If Application.Dialogs(xlDialogInsertHyperlink).Show Then
    End If
End If

使用对话框的语法很奇怪，但是可以。