<p>Note this was done on Excel for Mac 2011 but should be same for Windows</p>
<p>Macro:</p>
<pre><code class="lang-auto">Sub numberformats()
Dim rng As Range
Set rng = Range("A24:A35")
For Each c In rng
Debug.Print c.NumberFormat
Next c
End Sub
</code></pre>
<p>Result:</p>
<pre><code class="lang-auto">General General
Number 0
Currency $#,##0.00;[Red]$#,##0.00
Accounting ($* #,##0.00);($* (#,##0.00);($* "-"??);(@)
Date m/d/yy
Time [$-F400]h:mm:ss am/pm
Percentage 0.00%
Fraction # ?/?
Scientific 0.00E+00
Text @
Special ;;
Custom #,##0);Red
</code></pre>
<p>(I just picked a random entry for custom)</p>