名前でもってwindowオブジェクトを捕捉する。

これならShellWindowsを使わずにできます。

msgbox typename(win)

function getwin(name)
nop="javascript:void(0)"
set getwin=open(nop,name)
if getwin.location.href<>nop then exit function
getwin.close
set getwin=nothing
end function