For Each objFileItem in objFolderContents

start = 4
slut = 7
count = 0
For Each objFileItem in objFolderContents
if count >= start and count <= slut then
  //din kode her
elseif count > slut then
  exit For
else
  count = count + 1
end if
Next

det er i hvert fald en mulig metode, pointen er at du med en "For Each" jo netop løber alt igennem
I ovenstående eksempel springer den således alt over indtil den når "start", dernæst udfører den det du ønsker indtil den når "slut", derefter springer den helt ud af for løkken
Jeg kan se jeg har glemt at tælle count op i første betingelse, men så burde den vist være i orden :o)
----
start = 4
slut = 7
count = 0
For Each objFileItem in objFolderContents
  if count >= start and count <= slut then
    //din kode her
    count = count + 1
  elseif count > slut then
    exit For
  else
    count = count + 1
  end if
Next

ja læg et svar

oki doki :o)