'selector.vbs Set TCS = CreateObject("TCScript.Helper") For i=1 To 20000 TCS.SendKeystroke "{Insert}" Next