DIM hSubCollection AS .SubCollection DIM anObject AS Object FOR EACH anObject IN hSubCollection ...NEXT