Show all font options of a single character

Have I got a challenge for you! (That was an effort to inspire someone, as the solution is likely trivial)

I am looking for a macro to show all the font options of a single character. I know the formula CHAR will show all the characters, and by changing the font you can view how every character is displayed. I am looking to select a letter such as capital "I", and then have the cells populate with the letter "I" shown in all the possible font variations. It would also be nice to have the font listed in the adjacent cell.

So in summary is it possible to fill column A with a letter (i.e. "I"), the run a macro where A1 show shows the letter I in arial, with B1 listing Arial. Cell A2 would have the "I" formatted in baskerville (or the next available font), with the corresponding font name in cell B2.

I	Arial
I	Book Antiqua
I	Comic Sans