How can I count the number of Registration fill shapes on one page please

I want to make a condition in function of existing or non existing of registration shapes on one page, and if none the macro should do something

My code is:

nrreg = ActivePage.Shapes.FindShapes(Query:=" = '100% Registration Color'").Count

If nrreg = 0 Then GoTo 888

The problem is that the macro do not find any of the registration objects even if they exists

Thank you