====== For Each ======
<code vb>
For Each fld In srt.Fields
Debug.Print fld.Name
Next fld
</code>