Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{F5}"
Set WshShell = Nothing