You have PMd me to say that you are unable to post your code. This should not be the case, however here it is for you:
Sub automaticformfilling()
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")
With ie
.Visible = True
.navigate "https://cf.oeb.ca/html/_calculator/BillCalc.cfm"
'Wait for loading
Do While .busy
DoEvents
Loop
Do While .readystate <> 4
DoEvents
Loop
End With
Set district = ie.document.getelementbyid("ddCompanies")
For i = 1 To district.Options.Length
If district.Options(i).Text = "ENWIN Utilities Ltd." Then
district.selectedindex = i
Exit For
End If
Next i
ie.document.getelementbyid("ddCompanies").fireevent ("onchange")
Set variableusage = ie.document.getelementbyid("txtEnterUsage")
SendKeys ("{BACKSPACE}")
End Sub
Bookmarks