Like this, then:
Sub Check_All()
Select Case ActiveSheet.Shapes(Application.Caller).ControlFormat
Case xlOn
With ActiveSheet
.Shapes("Check Box 25").ControlFormat.Value = xlOn
.Shapes("Check Box 14").ControlFormat.Value = xlOn
.Shapes("Check Box 15").ControlFormat.Value = xlOn
.Shapes("Check Box 16").ControlFormat.Value = xlOn
.Shapes("Check Box 17").ControlFormat.Value = xlOn
.Shapes("Check Box 19").ControlFormat.Value = xlOn
.Shapes("Check Box 18").ControlFormat.Value = xlOn
.Shapes("Check Box 20").ControlFormat.Value = xlOn
.Shapes("Check Box 21").Select
Selection.Characters.Text = "UN-Check All"
Range("D21").Select
End With
Case xlOff
With ActiveSheet
.Shapes("Check Box 25").ControlFormat.Value = xlOff
.Shapes("Check Box 14").ControlFormat.Value = xlOff
.Shapes("Check Box 15").ControlFormat.Value = xlOff
.Shapes("Check Box 16").ControlFormat.Value = xlOff
.Shapes("Check Box 17").ControlFormat.Value = xlOff
.Shapes("Check Box 19").ControlFormat.Value = xlOff
.Shapes("Check Box 18").ControlFormat.Value = xlOff
.Shapes("Check Box 20").ControlFormat.Value = xlOff
.Shapes("Check Box 21").Select
Selection.Characters.Text = "Check All"
Range("D21").Select
End With
End Select
End Sub
Bookmarks