VBA to loop through Shapes

Dear all,
Please review the attachment
I have shapes ENG CHK and PR CHK in the order shown.

Is it possible to loop through these shapes using VBA and check if any of the shapes in PR CHK has "OK" in it and any shapes among ENG CHK has "YES" in it..?

To reduce complexity, ENG CHK shape names vary from Rectangle 1 to Rectangle 20 and PR CHK shapes vary from Rectangle 21 to Rectangle 40

I am looking for something like this (Roughly):


For i=1 to 20
If shape.name(i)="YES" then
Msgbox "YES - found"
End if
For i=21 to 40
If shape.name(i)="OK" then
Msgbox "OK- found"
End if

I never did looping through shapes till now...Please help and i will seriously try my best to understand the logic..

Many Thanks..

Try this:-

Please Login or Register  to view this content.

Regards Mick

Hey, Thanks for your response.
Your code throws an error..Tried fixing it, but couldn't succeed...
Please refer attachment..

Works great...Thanks a lot...

Please you got it sorted
Regrds Mick