Sub Log()
     
    Dim ie As Object
     
    Set ie = CreateObject("InternetExplorer.Application")
     
    ie.navigate "http://www.excelforum.com"
     
    ie.Visible = True
     
    Do While ie.Busy And Not ie.readyState = 4
        DoEvents
    Loop
     
    DoEvents
     
    ie.document.all.Item("navbar_username").Value = "MyUser"
    ie.document.all.Item("Password").Value = "MyPass"
    ie.document.all.Item("submit").Click
     
End Sub
This is my attempt to create a login to this site using VBA. It does not work. If i can get it to work here, i would like to apply it to other business sites that i log into on a regular basis to save a great deal of time.

If someone can point out where I am going wrong, it would be helpful. Also, for the User and Password, i would like to be able to use a cell reference (A1 & A2)

Thanks