Hi guys,

I have a macro that sends commands to a program using "sendkeys". Before I only had 2 values to worry about ("C16970 and C17213"), but now they can range anywhere from 20-70, which is listed in column "p". Is there a way that the macro can loop through all of those values? Thanks


Sub test123_DTLNAV()

    
    Dim datetoday As String
    datetoday = Format(Range("g8").Value, "yymmdd") & "  "
    Dim email2 As String
    email2 = Range("k3").Value
         
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("C16970<delete><delete>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("<tab>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("C16970<delete><delete>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("<Enter>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("TB")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("<Enter><Enter>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("<Pf12>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("C17213")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("<tab>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("C17213")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("<Enter>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("TB")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("<Enter><Enter>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Application.Wait (Now() + TimeValue("00:00:03"))
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("SE<enter>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("2<enter>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("8<enter>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Application.Wait (Now() + TimeValue("00:00:03"))
        Sess0.screen.SendKeys ("<rollup>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("<enter>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("<Tab>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys (email2)
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("<enter>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys "C16970" & "TB" & (datetoday)
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("<TAB>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("<ENTER>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("<down><down>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("8<enter>")
        Application.Wait (Now() + TimeValue("00:00:03"))
        Sess0.screen.SendKeys ("<rollup>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("<enter>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("<Tab>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys (email2)
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("<enter>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys "C17213" & "TB" & (datetoday)
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("<TAB>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("<ENTER>")
        Sess0.screen.waithostquiet (g_HostSettleTime)
        Sess0.screen.SendKeys ("<Pf12><Pf12><Pf12>")
        Sess0.screen.waithostquiet (g_HostSettleTime)