Required Libraries: Microsoft Internet Controls, Microsoft HTML Object Library
Sub BANK_RATES_NEW_WSJ()
Set objIE = CreateObject("InternetExplorer.Application")
'objIE.Top = 0
'objIE.Left = 0
'objIE.Width = 0
'objIE.Height = 0
'objIE.Visible = True
objIE.navigate "http://www.wsj.com/mdc/public/page/2_3020-libor.html"
Do
DoEvents
Loop Until objIE.ReadyState = READYSTATE_COMPLETE
Dim Doc As HTMLDocument
Set Doc = objIE.Document
Dim MyList As String
y = 0
For x = 1 To 28
MyList = Trim(Doc.getElementsByClassName("num")(y).InnerText)
If y = 8 Then
'Libor1Month
Libor2 = MyList
End If
If y = 16 Then
'Libor3Month
Libor4 = MyList
End If
If y = 20 Then
'Libor6Month
Libor5 = MyList
End If
y = y + 1
Next x
MsgBox "The rates for today are: " & Chr(13) & "Libor 1 Month - " & Libor2 & Chr(13) & "Libor 3 Month - " & Libor4 & Chr(13) & "Libor 6 Month - " & Libor5
End Sub