I don’t recall where I found this on the interwebs. It seems to work well. If anyone finds the original source, please comment and I’ll give the credit where credit is due! Sub DeleteUnusedStyles() Dim oStyle As Style On Error GoTo ErrorHandler...