The macro in the link failed to delete any unused styles. The one in my original post worked to delete unused styles, but also deleted header and footer and text box styles.