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