Option Explicit
Sub LogIn()
Dim IE As Object
Dim doc As Object
Dim frm As Object
Dim username As Object
Dim pwd As Object
Dim strURL As String
Dim strUserName As String
Dim strPwd As String
strURL = "https://www.theice.com/homepage.jhtml?loginApp=ICE"
strUserName = "YourUserName"
strPwd = "YourPasssword"
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate strURL
Do Until IE.ReadyState = 4
DoEvents
Loop
Set doc = IE.Document
Set frm = doc.getElementById("loginForm")
Set username = doc.getElementById("j_username")
Set pwd = doc.getElementById("j_password")
username.Value = strUserName
pwd.Value = strPwd
frm.submit
Set IE = Nothing
End Sub