123456 vba

[Mr. Bluemaxx]

CodeOption Explicit Const sURL = "https://www.a.com/css-tutorials/form/contact-form.htm" ' Now, run the macro by clicking the hyper links. Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) fillWebForm Target.Range.row End Sub Private Sub fillWebForm(iRow As Integer) ' Define objects. Dim oIE As Object Dim oHDoc As HTMLDocument ' Create IE object. Set oIE = CreateObject("InternetExplorer.Application") With oIE .Visible = True ' Open IE. .Navigate sURL ' Assign the URL to the browser.

Continue reading...