TinyURL Convertor For Excel for u/BradzleyB123 https://www.reddit.com/r/programmingrequests/comments/a7gjm2/request_tinyurl_batch_link_generator/

tinyurl_convert

Public Function TINYURL_GENERATOR(base_url As String) As String
    Set objIE = CreateObject("InternetExplorer.Application")
    
    objIE.Top = 0
    objIE.Left = 0
    objIE.Width = 800
    objIE.Height = 600
    
    objIE.Visible = False
    
    objIE.Navigate ("http://tinyurl.com/api-create.php?url=" + base_url)
    
    Do
    DoEvents
    Loop Until objIE.readystate = 4
    
    TINYURL_GENERATOR = objIE.document.getElementsByTagName("pre")(0).innerText
End Function