Sub Extract_Hyperlinks_From_Cells()
'______________________________________
'
'This VBA macro extracts the hyperlinks in column A
'and writes the hyperlink address without the link in column B
'This quick macro works in Excel
'______________________________________
'
Dim The_First_Row, The_Last_Row As Long
The_Last_Row = cells.SpecialCells(xlCellTypeLastCell).Row
For The_First_Row = 1 To The_Last_Row
cells(The_First_Row, 2).Value = Range("A" & The_First_Row).Hyperlinks(1).Address
Next
End Sub
No comments:
Post a Comment
You may comment or show me other VBA tricks, but don't rest assured I'll always reply because I only have 24 hours in a day's hard work, and only a few minutes a week to update this blog... I'll try my best though...