Sub ResetLocks()

   
    Dim visApp As Visio.Application
    Dim visSelection As Visio.Selection
    Dim visShape As Visio.Shape
    Dim iShapeCount
    
    Set visApp = ThisDocument.Application
    Set visSelection = visApp.ActiveWindow.Selection
    
    
    'Check the count in the collection.'

    If visSelection.Count = 0 Then
      MsgBox "No Shape(s) selected.", vbOKOnly, "ResetPerms"
      	Exit Sub
    End If
    
    iShapeCount = visSelection.Count
    Set visShape = visSelection(iShapeCount)
    
   	For Each visShape In visSelection
            
           visShape.Cells("LockWidth").Formula = 0
           visShape.Cells("LockHeight").Formula = 0
           visShape.Cells("LockAspect").Formula = 0
           visShape.Cells("LockMoveX").Formula = 0
           visShape.Cells("LockMoveY").Formula = 0
           visShape.Cells("LockRotate").Formula = 0
           visShape.Cells("LockBegin").Formula = 0
           visShape.Cells("LockEnd").Formula = 0
           visShape.Cells("LockDelete").Formula = 0
           visShape.Cells("LockSelect").Formula = 0
           visShape.Cells("LockFormat").Formula = 0
           visShape.Cells("LockCustProp").Formula = 0
           visShape.Cells("LockTextEdit").Formula = 0
           visShape.Cells("LockVtxEdit").Formula = 0
           visShape.Cells("LockCrop").Formula = 0
           visShape.Cells("LockGroup").Formula = 0
           visShape.Cells("LockCalcWH").Formula = 0
           
        Next visShape
      End Sub