Check whether a cell contains a link in Excel

I am trying to check whether values in a column, say A, contain a link, and if true, in column B, I want to type a text, for example: link. I have many records (10 000), so doing this by hand will take a lot of time. Thx.

• Save your file as .xlsm to allow Macros
• Alt + F11 to open Visual Basic
• Insert -> Module
• Paste this function, it returns the count of hyperlinks in a range:

Function IsHyperlink(r As Range) As Integer
IsHyperlink = r.Hyperlinks.Count
End Function

• Alt+Q

• Use your new function with the if conditions to display your text:

   =IF(IsHyperlink(A1),"LINK","NO LINK")