Hi Wazing, welcome to the forum.

Perhaps this code will help you out. It loops through the cells in column A on Sheet1 and creates a list of the values following the href tags into column A on Sheet2.

Sub extract()
Dim delim As String, nextRow As Long, i As Long
Dim ws1 As Worksheet, ws2 As Worksheet, tmpArr As Variant

Set ws1 = Sheets("Sheet1")
Set ws2 = Sheets("Sheet2")
delim = "href="""
nextRow = Sheets("Sheet2").Range("A" & ws2.Rows.Count).End(xlUp).Row + 1

For i = 1 To Sheets("Sheet1").Range("A" & ws1.Rows.Count).End(xlUp).Row
    tmpArr = Split(Cells(i, 1).Value, delim)
    For j = 1 To UBound(tmpArr)
        tmpArr(j - 1) = Left(tmpArr(j), InStr(1, tmpArr(j), """") - 1)
    Next j
    ws2.Range("A" & nextRow).Resize(UBound(tmpArr), 1).Value = Application.Transpose(tmpArr)
    nextRow = nextRow + UBound(tmpArr)
Next i
End Sub
May need some tweaking, but I don't have any sample data to work with...