Sub CountUsedObjects()
MsgBox "The number of used objects in this application is: " & _
Application.UsedObjects.Count
End Sub