Need help inputting multiple pauses in a macro code

G

gibson2503

New Member
Joined
Aug 19, 2013
Messages
6
I have a macro I recorded to print a bunch of timecards. While I recorded it, I printed each timecard in chronological order. Now, when I run the macro, it prints all the timecards, but not in order. Probably because the print server is receiving all of them too fast. I figure if I slow it down a bit, say 2 or 3 seconds between timecards, the print server will print them in order. What do I need to do to my code to create a pause between each timecard? My code is below. In the code every time you see the line WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
that is the last line before the print job is sent. It would be great if I could have the pause right before this line every time it occurs in the code.

Code: 
Sub PrintTimecards()
' Generated by the Reflection Macro Recorder on 09-19-2013 12:01:54.19.
' Generated by Reflection for UNIX and OpenVMS 14.0.4.
    On Error GoTo ErrorHandler
    Const NEVER_TIME_OUT = 0
    Dim LF As String    ' Chr(rcLF) = Chr(10) = Control-J
    Dim CR As String    ' Chr(rcCR) = Chr(13) = Control-M
    LF = Chr(Reflection2.ControlCodes.rcLF)
    CR = Chr(Reflection2.ControlCodes.rcCR)
    With Session
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "12-18" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "12-19" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "12-20" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "12-21" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "12-22" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "12-23" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "12-24" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "12-25" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "12-26" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "12-27" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "13-01" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "13-02" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "13-03" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "13-04" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "13-05" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "13-06" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "13-07" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "13-08" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "13-09" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "13-10" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "13-11" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "13-12" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "13-13" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "13-14" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select Payroll Main Menu Option:"
        .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "2" & CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Select PAY PERIOD:"
        .WaitForString LF & "Select PAY PERIOD: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit "13-15" & CR
        .StatusBar = "Waiting for Prompt: Select Device: HOME//"
        .WaitForString LF & "Select Device: HOME// ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit " " & CR
        .StatusBar = "Waiting for Prompt: Requested Start Time: NOW//"
        .WaitForString LF & "Requested Start Time: NOW//", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        .StatusBar = "Waiting for Prompt: Select EMPLOYEE:"
        .WaitForString LF & "Select EMPLOYEE: ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""
        .Transmit CR
        ' .WaitForString LF & "Select Payroll Main Menu Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
    End With
    Exit Sub
ErrorHandler:
    Session.MsgBox Err.Description, vbExclamation + vbOKOnly
    ' Recording stopped at 12:06:25.61.
End Sub

[CODE]
 

Excel Facts

Workdays for a market open Mon, Wed, Friday?
Yes! Use "0101011" for the weekend argument in NETWORKDAYS.INTL or WORKDAY.INTL. The 7 digits start on Monday. 1 means it is a weekend.
Sort by date Sort by votes
You can use the Application's Wait method to pause macro execution, but I'm not sure it will help in your scenario.
 
Upvote 0
I found the wait function, but not sure how to use it. How to I tell it to wait for 4 seconds then continue with the rest of the macro?
 
Upvote 0
You must log in or register to reply here.

Similar threads

M
  • Question
VBA Code - Run Code if cell value is not blank
Replies
0
Views
443
MHamid
M
L
  • Question
Macro stopped working - no longer selects worksheet
Replies
1
Views
566
NdNoviceHlp
NdNoviceHlp
Guna13
  • Question
Help to Optimize Macro Code for Faster Performance
Replies
0
Views
765
Guna13
Guna13
M
  • Question
Macro modification
Replies
1
Views
870
DanteAmor
DanteAmor
A
  • Solved
Calendar form cancel button passing data to worksheet
Replies
7
Views
451
AndyEd
A

Forum statistics

Threads
1,215,459
Messages
6,124,947
Members
449,198
Latest member
MhammadishaqKhan

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top