vba 如何返回本工作簿窗口??

w5xzm

Sub auto_open()
    Application.OnTime TimeValue("17:00:00"), "sw"
End Sub
Sub sw()
    On Error Resume Next
    tw = ThisWorkbook.Name
    Windows(tw).Activate                     '<<<此处在我浏览其它窗口时,并不能自动激活此工作簿窗口,不知何解,请高手指点
    MsgBox "时间到"
End Sub