VBAのRANGEの要素数を得るには？

解決

いそろく 2007-02-01 07:32:17 No: 97815

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

if Target <> "" then exit sub

//コード//

end sub

このようにセルを選択した時にコードを実行したいのですが
セルが複数選択されるとエラーが出てしまいます。
if Targetの要素数 <> 1 then exit sub
のようにするにはどうすればいいのでしょうか？

いそろく 2007-02-01 07:43:43 No: 97816

target.Count
で出来ました