Selection内のオブジェクトの数をLongとして戻します。
' This example displays the number of objects in the Selection SelectAll set oSelection = Application.Selection logmessage "Number of objects in the Selection : " & oSelection.Count