<input name="Action" onclick="this.disabled=true; this.form.submit();" type="submit" value="Search">


Sub autoIE()

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")

IE.navigate "webpage.com"

IE.Visible = True

While IE.Busy
DoEvents
Wend

IE.document.all("lookupNumberId").Value = ThisWorkbook.Sheets("Sheet1").Range("a1")

IE.document.all("Action").Click 'error 438

IE.document.getElementByName("Action").Click 'error 438

End Sub