Sub submitFeedback3()
Dim itm As Variant
Application.ScreenUpdating = False
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate 'the url link is http://www.heiinfo.slc.co.uk/hei-services/bursaries-service.aspx followed by clicking on hyperlink HE Services Portal
While IE.Busy
DoEvents
Wend
delay 5
IE.Document.getElementsbyname("ssousername")(0).Value = "JOEBLOGGS"
'THIS IS WHERE i NEED TO CLICK THE CONTINUE BUTTON
Private Sub delay(seconds As Long)
Dim endTime As Date
endTime = DateAdd("s", seconds, Now())
Do While Now() < endTime
DoEvents
Loop
End Sub
Bookmarks