The following code has been running without errors until this morning

Sub GetSharesNow(
On Error GoTo ErrorSu
Range(Cells(14, 8), Cells(24, 8)).ClearContent
Set IE = GetObject(, "InternetExplorer.Application"
sHTML = IE.Document.Documentelement.InnerTex
SubChoice = "GetSharesSub
NotifyGetDataForm.Sho
ErrorSub
ErrorHandle
End Su

UserForm NotifyGetDataForm calls a separate routine that write
sections of sHTML to a worksheet

The program now stops during

sHTML = IE.Document.Documentelement.InnerTex

I've been able to confirm ErrNum = -214746725

Can anyone help me resolve this problem

Thanks

Kevin