One of the ways is using a custom function. Here is a sample I found that you can try:

Sub VisibleSync(WebObject)
Set BrowserObj = WebObject
On error resume next
Do while BrowserObj.GetTOProperty(''parent'') <> empty
Set BrowserObj = BrowserObj.GetTOProperty(''parent'')
Loop
On error goto 0
BrowserObj.Sync
WebObject.WaitProperty ''x'', micNotEqual(0), 60000
End Sub

And then call it like this:

VisibleSync Browser('''').Page('''').WebEdit('''')