Sub Login_Facebook_Using_Internet_Explorer()
    Dim ie      As Object
    Dim sUser   As String
    Dim sPass   As String

    sUser = Range("D10").Value
    sPass = Range("D11").Value

    Set ie = CreateObject("Internetexplorer.Application")

    ie.Navigate ("www.Facebook.com")
    ie.Visible = True

    Do While ie.Busy: DoEvents: Loop
    Application.Wait (Now + TimeValue("00:00:05"))

    On Error Resume Next
    ie.Document.all.Item("email").Value = sUser
    ie.Document.all.Item("pass").Value = sPass
    ie.Document.all.Item("loginbutton").Click

    Set ie = Nothing
End Sub</strong>
<strong>