CountBlankの範囲指定について

質問

VBA勉強中の者です
変数にて指定した範囲の空白セルをカウントする為に、以下のコードを作成しました。

Sub test()
Dim rng As Range
Set rng = Range(Cells(1, 1), Cells(1, 10))
Dim CntBnk As Long

'-------↓以下が認識されないコード--------------
CntBnk = WorksheetFunction.CountBlank(ActiveSheet.Range(rng))
'---------------------------------------------------
MsgBox (CntBnk)
End Sub

CountBlankの範囲指定の方法が間違っていると思われます。
簡単に　CntBrk = rng.CountBlank　と入力するなどしてみましたが、やはりダメでした。
自分なりに調べつつ改善してみたものの解決に至らず、どなたかご助力お願い致します。

回答No.1

keithin · ベストアンサー

正解：
CntBnk = WorksheetFunction.CountBlank(rng)

変数rngには最初から「rangeオブジェクト（＝セル範囲）」が格納済みですから，countblank(rng)とするだけで「countblank(セル範囲を指定した)」ことになります。

お礼

早速の回答有難う御座います。
上記のコードにて動作を確認しました。
ご説明頂いた内容も理解しました。確かにその通りでした。
ダブって範囲を指定していた事になるんですね。
A1型式で上手くいったので、R1C1型式でも同じ方法なら間違いないという
固定観念で考えてしまっていました。
先日の御回答といい、素早く的確にお返事頂きまして有難う御座います、
大変に助かりました。
今後とも宜しくお願い致します。