For Each

For Each fld In srt.Fields
Debug.Print fld.Name
Next fld