Sub scrapeHyperlinksWebsite()
'Refrence Require
'Microsot HTML Object Library
'Microsoft Internet control

    'We refer to an active copy of Internet Explorer
    Dim ie As InternetExplorer
    'code to refer to the HTML document returned
    Dim html As HTMLDocument
    Dim ElementCol As Object
    Dim Link As Object
    Dim erow As Long
    Application.ScreenUpdating = False
    'open Internet Explorer and go to website
    Set ie = New InternetExplorer
    ie.Visible = True
    'In this example we have used below weburl, you can change and try
    'ie.Navigate "https://secureapp.dhs.state.ia.us/MedicaidFeeSched/"
    ie.Navigate "use you website address" '"https://www.ozgrid.com/forum/forum/other-software-applications/excel-and-web-browsers-help/140573-how-to-get-the-href-value-out-from-the-given-html-code"

    'Wait until IE is done loading page
    Range("A:A").ClearContents
    Do While ie.Busy Or ie.ReadyState <> READYSTATE_COMPLETE
        Application.StatusBar = "Trying to go to website…"
        DoEvents
    Loop
    Set html = ie.Document
    'Display text of HTML document returned in a cell
    Range("A1") = html.DocumentElement.innerHTML
    Set ElementCol = html.getElementsByTagName("a")

    For Each Link In ElementCol
        erow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
        Cells(erow, 1).Value = Link
        Cells(erow, 2).Value = Link.Text
        Cells(erow, 1).Columns.AutoFit
    Next
    'close down IE, reset status bar & turn on screenupdating
    ie.Quit
    Set ie = Nothing
    
    Application.StatusBar = ""
    Application.ScreenUpdating = True

End Sub