Good Morning

I am trying to automatically log on to a website site using a login and password.

I have created a sample code to log on to the website and enter the relevant username and password but I can't get the submit button to work.

Any ideas on where I am going wrong

Sub GetTable()

Dim ieApp As InternetExplorer
Dim ieDoc As Object

Set ieApp = New InternetExplorer

ieApp.Visible = True

ieApp.Navigate "http://fantasyfootball.dailymail.co.uk/log-in"
Do While ieApp.Busy: DoEvents: Loop
Do Until ieApp.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop

Set ieDoc = ieApp.Document

With ieDoc.forms(0)
.Email.Value = "n.collins@tauntondeane.gov.uk"
.pass.Value = "arsenal"
.ieDoc.submit
End With
End Sub