title: Using VBA to submit a javascript form
body: <p>I am writing a program to fill in a form on a webpage and then submit it. However, I can't get the form to submit.</p>
  
  <p>I have included a link to the <a href="https://www.yourwealth.co.uk/insurance/life-insurance-quotes#117e8786/" rel="nofollow">website</a>.</p>
  
  <p>The button is called 'Get Instant Quotes' but I can't seem to be able to reference it at all.</p>
  
  <p>My code so far</p>
  
  <pre><code>Application.Calculation = xlCalculationAutomatic
  'Determine Number of Quotes
  If Range("Start").Offset(2, 0) = "" Then
      TotalQuotes = 1
  Else
      TotalQuotes = Range("Start").End(xlDown).Row - 4
  End If
  i = 4
  T = i - 3
  Application.StatusBar = "Getting Quote " &amp; T &amp; " out of " &amp; TotalQuotes
  Do Until Worksheets("Front").Cells(i, 1) = ""
  Website = Worksheets("Front").Range("A1")
  Set IE = CreateObject("InternetExplorer.Application")
  IE.navigate Website
  
  IE.Visible = True
  
  While IE.Busy
     DoEvents  'wait until IE is done loading page.
  Wend
  While IE.readyState &lt;&gt; 4
  DoEvents
  Wend
  'Type of Product
  'Life Only
  Worksheets("Front").Select
  If Mid(Cells(i, 2), 2, 1) = "T" Then
      CIC_IND = 0
      CIC_Type = "guaranteed"
  Else
      CIC_IND = 1
      CIC_Type = Cells(i, 7)
      If CIC_Type = "G" Then
          CIC_Type = "guaranteed"
      Else
          CIC_Type = "(reviewabl"
      End If
      IE.Document.getElementById("IncludeCriticalIllnessPolicyYes").Click
  End If
  'Name
  IE.Document.getElementById("strFirstName").Value = "Andy Williams"
  'Address
  IE.Document.getElementById("address").Value = "10 Jones Street"
  'City
  IE.Document.getElementById("city").Value = "leicester"
  'Post Code
  IE.Document.getElementById("strPostcode").Value = "LE1 2GH"
  'Phone Number
  IE.Document.getElementById("strPhoneNumber").Value = "01245337235"
  'Email
  IE.Document.getElementById("strEmail").Value = "Andy.williams@hotmail.com"
  'Single or Joint
  If Left(Cells(i, 3), 1) = "J" Then
      IE.Document.getElementById("strData3").Value = "YOU_PARTNER"
  Else
      IE.Document.getElementById("strData3").Value = "YOU"
  End If
  'Level or Decreasing
  If Left(Cells(i, 2), 1) = "D" Then
      IE.Document.getElementById("strData4").Value = "MORTGAGE_PROTECTION"
  Else
      IE.Document.getElementById("strData4").Value = "PL_COVER"
  End If
  'Sum Assured
  SumAssured = Worksheets("Front").Cells(i, 6)
  IE.Document.getElementById("strData2").Value = SumAssured
  'Policy Term
  Policy_Term = Worksheets("Front").Cells(i, 5)
  IE.Document.getElementById("strData5").Value = Policy_Term
  'Date of Birth
  DOB_Year = Right(Cells(2, 1), 4) - Cells(i, 4)
  DOB_Month = Mid(Cells(2, 1), 4, 2)
  DOB_Day = Left(Cells(2, 1), 2)
  IE.Document.getElementById("strDOBDay").Value = DOB_Day
  IE.Document.getElementById("strDOBMonth").Value = DOB_Month
  IE.Document.getElementById("strDOBYear").Value = DOB_Year
  'Gender
  IE.Document.getElementById("strGender").Value = "MALE"
  'Smoker Status
  If Right(Cells(i, 3), 1) = "M" Then
      IE.Document.getElementById("StrSmoker").Value = "YES"
  Else
      IE.Document.getElementById("StrSmoker").Value = "NO"
  End If
  'If Left(Cells(i, 3), 1) = "J" Then
   '   Joint_Ind = 1
    '  IE.document.GetElementById("SecondApplicantTitle").Value = "2"
     ' IE.document.GetElementById("SecondApplicantForename").Value = "Andrea"
      'IE.document.GetElementById("secondApplicantSurname").Value = "Williams"
      'Date of Birth
      'DOB_Year = Right(Cells(2, 1), 4) - Cells(i, 4)
      'DOB_Month = Mid(Cells(2, 1), 4, 2)
  '    DOB_Month = 3
   '   DOB_Day = Left(Cells(2, 1), 2)
    '  DOB = DOB_Day &amp; "/" &amp; DOB_Month &amp; "/" &amp; DOB_Year
     ' IE.document.GetElementById("SecondApplicantDateOfBirth").Value = DOB
      'Smoker Status
      'If Right(Cells(i, 3), 1) = "M" Then
       '   IE.document.GetElementById("SecondApplicantSmokerYes").Click
      'Else
       '   IE.document.GetElementById("SecondApplicantSmokerNo").Click
      'End If
  'Else
   '   Joint_Ind = 0
  'End If
  </code></pre>