Sub Test() Dim s As Shape Dim n As Long n = 0 For Each s In ActivePage.Shapes If s.Locked Then n = n + 1 Next s MsgBox "There are " & n & " shapes locked on the current page" End Sub