Counting Worksheet objects with a certain name

[SocratesJC]

This code easily counts all the objects in a worksheet. I am having trouble with the syntax for counting only objects with a name beginning with certain letters.

Sheet1.OLEObjects.Count

Can I use something like this? :

Left(Sheet1.OLEObjects.Name, 5).Count