Format fonts on sheet automatically
 

Hello (way-better-than-me-at-coding) People,
In Excel 97, I'm making workbooks that display fonts in various sizes to
print a reference guide.
Each page fits 16 fonts (at three rows each) and each workbook has three
pages.(I found Excel groans if I have more than 50 fonts in use at a
time,hence the 3 x 16 limit per book)
Because I've got many more fonts than I want to keep installed in my fonts
folder, I'm installing 48 at a time then manually formatting and writing in
the font names.

It's very tedious so I'm after a way to do two things:
1 Cycling through every available font in the Fonts folder, format three
rows at a time

and if possible ....
2 Write the name of the font the cell is formatted in, in the first column
of these rows.

Partial solutions welcome!
Anything would be easier than what I'm doing.

TIA all