Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub ChangeCkBxNames()
On Error Resume Next
For Each ws In Worksheets
For Each sp In ws.Shapes
If sp.FormControlType = xlCheckBox Then
If Err.Number = 0 Then
nbr = Right(sp.Name, Len(sp.Name) - 10)
sp.Name = "chk" & nbr & "_EPO_C"
Else
Err.Clear
End If
End If
Next
Next
End Sub