Excel vbscript return the number of fonts available in excel
<p>Is it possible to access the fonts available in excel?</p>

<p>I realise you can set the font by using:</p>

<pre><code> Range("A1:C1").Select
     With Selection.Font
         .Name = "Arial"
     End With
</code></pre>

<p>What I'd like to do is return the number of fonts in excel and then loop through them to get the name of each font.</p>

<p>Something like:</p>

<pre><code>For Counter = 1 To excel.fonts
   ActiveCell = excel.font.Name
Next Counter
</code></pre>