apologize
On Error Resume Next Dim wsh,ye set wsh=createobject("wscript.shell") wscript.sleep 2000 for i=1 to 9 wscript.sleep 1000 wsh.sendKeys "^v" wsh.sendKeys "%s" next wscript.quit