MS Excel: Function to Extract Hypelinks from cells

This is function used to extract hyperlinks or urls from a cell in excel. Open your excel sheet. Press Alt+F11. Then in the vba editor that appearrs go to menu insert-->module. Paste the following function there and now press alt+q. Function getURL(forThisCell As Range) As String 'VBA UDF for getting URLs from a cell if any retVal = "" If forThisCell.Hyperlinks(1).Address <> “” Then retVal = forThisCell.Hyperlinks(1).Address End If getURL = retVal End Function Now if you want to extract link from the cell A1 then enter the following in any of the cell =getURL(A1)