Ben,
notice the lines that say:
- Dim objItem
-
For Each objItem in objItems
This is what says to go through each line. If you only want three, then change it to something like this:
- Dim objItem, x
-
x = 0
-
For Each objItem in objItems
-
x = x + 1
-
if x > 3 then exit for
Does this make sense? I just added a counter called "x" and it exits after three times through the for... next loop. This probably isn't the best way to exit the loop (it is generally considered a bad idea to exit loops this way unless you are troubleshooting an error) but this is a simple way to exit from a loop that someone else wrote and you don't have to worry about whether the loop will advance the right way if you change it. Anyway, let me know if this helps.
Jared