 <h2>Append Hyperlink to list using the Insert Hyperlink Dialog</h2> <p><a href="https://i.stack.imgur.com/go3UT.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/go3UT.jpg" alt="enter image description here"></a></p> <pre><code>Private Sub btnInsertHyperlink_Click() Range("A" &amp; Rows.Count).End(xlUp).Offset(1).Select Application.Dialogs(xlDialogInsertHyperlink).Show End Sub </code></pre>