Как добавить «дату изменения» гиперссылки рядом с гиперссылкой?

Question

Это код, который я сейчас использую для добавления нескольких гиперссылок в Excel.

Sub Demo () Dim lngCount As Long Dim cl As Range

Set cl = ActiveCell
' Open the file dialog
With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = True
    .Show
    ' Display paths of each file selected
    For lngCount = 1 To .SelectedItems.Count
        ' Add Hyperlinks
        cl.Worksheet.Hyperlinks.Add _
            Anchor:=cl, Address:=.SelectedItems(lngCount), _
            TextToDisplay:=.SelectedItems(lngCount)


        Set cl = cl.Offset(1, 0)
    Next lngCount
End With

End Sub