Basically, the code goes through all the <value> ... </value> strings and uses UBound(Split(.Text, " ")) to count the number of spaces. The number of words is one more than that, hence: i = i + 1 + UBound(Split(.Text, " ")).

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]