Here is the code that works fine for IE but I would like to move to using chrome. Any help is appreciated.
Dim ie As Object
Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
ie.navigate "https://activation.xfinityhome.com/xhAccountInfoPortal/portal/index"
ie.Visible = True
While ie.Busy
DoEvents
Wend
Application.Wait (Now + TimeValue("00:00:02"))
ie.document.All("accountNumber").Value = ThisWorkbook.Sheets("ivs").Range("a1")
ie.document.All("abutton").Click
Dim ie As Object
Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
ie.navigate "https://activation.xfinityhome.com/xhAccountInfoPortal/portal/index"
ie.Visible = True
While ie.Busy
DoEvents
Wend
Application.Wait (Now + TimeValue("00:00:02"))
ie.document.All("accountNumber").Value = ThisWorkbook.Sheets("ivs").Range("a1")
ie.document.All("abutton").Click