For Each loop function not working properly

[kiraexiled]

Hi everyone, I'm working on a macro that loops through a column of values and prints pdfs based on those variables.

I have managed to get everything working fine except for the order of the print.

Below is my macro:

Sub DocPrint()

    Worksheets("Main").Activate
    Application.ScreenUpdating = False
    ActiveCell.CurrentRegion.Select
    
    On Error Resume Next
        
    For Each a In Range("E21")
        If a.Value = "" Then Exit Sub
    File = "*" & a.Value & "*"
    fNAME = fPATH & "*" & File & "*" & ".pdf"
    Shell "C:\LOCALAPP\Apps\AcrobatReader\Reader\AcroRd32.exe /p /h " & fNAME
    
    Application.Wait Now + TimeValue("00:00:10")

    Next a
End Sub

I have values from E21 to E30. The macro would first print a pdf based on the value in E21 and right after that starts printing based on values from E30 then E29, E28,E27 and so on. What have I done wrong to make the macro loop in a reverse order?

Also the application wait function doesnt seem to be working either. Would appreciate help on that too.

Thanks a bunch!

Sam.

 

[hippiehacker]

replace

For Each a In Range("E21")

with

For Each a In Range("E21:E30")

 

[hippiehacker]

Application.Wait(Now + TimeValue("0:00:10"))</pre>

 

[kiraexiled]

Hi,I've tried that previously but the results are the same. I've also tried the code with

For Each a In Range("E21",Range("E21").End(xlDown))

No luck with that too. Any idea why this is happening?

-

Ok i've found the culprit behind this. Company updated adobe and now the print buffer time is much longer. All i had to do was set the wait time to 14 secs. Thanks hh!