The sync function I am using below and has served me well but this problem is causing me much stress.
Code:
Public Function SynchroniseBrowser(Browser)
Reporter.Filter = rfDisableAll
On Error Resume next
While Browser.Object.Document.readyState <>"complete"
Wend
On Error Goto 0
Reporter.Filter = rfEnableAll
End Function
The normal sync does not work either
Browser("Google").Sync