Using Insert Hyperlink Dialog to add a link to a cell

I'm writing a small macro to add an entry to my list of calibrated tools. I want to use the insert hyperlink dialog so the user can pick a file and then the macro will add a link to that file in a cell. Here's what I've tried:

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

But the result is the word "TRUE" blue and underlined, but if I click it it doesn't do anything

I imagine this is some kind of syntax issue, but I'm having troubling looking it up, most results don't have to do with the dialog.