List fonts used in workbook

I am looking for a way to list all the fonts that are used in an entire workbook. Initially I just need to know what fonts are used throughout, but if this code could also be used to list what worksheet each font is used that would also be great.

See attached. About the only thing I could find in short order.

HTH

Change references as required.
It does not use Sheet1 and it enters the info in Columns B, C and D in Sheet1
If you have a lot of sheets/data it will probably be slow.

Please Login or Register  to view this content.

It took me a while to make some corrections to my 30 page workbook that would allow this code to run fully through all worksheets but it does seem to work well with the only problems I experienced being the particular way my worksheets are designed. Thank you for providing this.