Excel VBA フォルダ個数計算方法

任意のフォルダ内におけるフォルダ個数をExcel VBAで計算したいのですが、 （例） C:\フォルダ個数\Aa001 C:\フォルダ個数\Ai002 C:\フォルダ個数\Au003 ・・・・・・ C→「フォルダ個数」フォルダ内に、任意のフォルダ（都度変わる）が複数存在し、 任意のフォルダ内（上記例ではAa001,Ai002,Au003）にあるフォルダ数をExcelに出力したい。 ＜出力結果Excel（例）＞ A列　　　B列 Aa001　　10 Ai002　　　5 Au003　　 2 ※A列に任意のフォルダ名、B列に任意フォルダ名内のフォルダ個数 ※シート名は、「フォルダ数」とした場合 以上お手数おかけいたしますが、ご教授の程よろしくお願いいたします。