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