Close HTMLDocument

[NuVa]

Dim sheTmp As New SHDocVw.ShellWindows
Dim iexTmp As SHDocVw.InternetExplorer
Dim htmTmp As HTMLDocument
Set iexTmp = sheTmp(0)
Set htmTmp = iexTmp.document
htmTmp.parentWindow.Close

При закрытие окна появляется MsgBox для подтверждения, как сделать чтобы он не появлялся, а окно закрылось бы сразу.
Спасибо