InputMsgon/Off for ALL worksheets?

Sub InputMsgOn()
    Dim ws As Worksheet
    Dim rng As Range
    Dim c As Range
    For Each ws In ActiveWorkbook.Worksheets
    On Error GoTo nocells
        Set rng = ws.Cells.SpecialCells(xlCellTypeAllValidation)
        For Each c In rng
            On Error Resume Next
            c.Validation.ShowInput = True
        Next c
nocells:
        On Error Resume Next
    Next ws
End Sub
 
 
Sub InputMsgOff()
    Dim ws As Worksheet
    Dim rng As Range
    Dim c As Range
    For Each ws In ActiveWorkbook.Worksheets
    On Error GoTo nocells
        Set rng = ws.Cells.SpecialCells(xlCellTypeAllValidation)
            For Each c In rng
                On Error Resume Next
                c.Validation.ShowInput = False
            Next c
nocells:
        On Error Resume Next
    Next ws
End Sub

Sub InputMsgShow(bShow As Boolean) 
    Dim ws As Worksheet 
    Dim rng As Range 
    Dim c As Range
    On Error Resume Next
    For Each ws In ActiveWorkbook.Worksheets 
        Set rng = ws.Cells.SpecialCells(xlCellTypeAllValidation) 
        For Each c In rng 
            c.Validation.ShowInput = bShow
        Next c 
    Next ws 
    Err.Clear
    On Error GoTo 0
End Sub

Private Sub CommandButton1_Click()
  Dim ws As Worksheet 
    Dim rng As Range 
    Dim c As Range 
    On Error Resume Next 
    For Each ws In ActiveWorkbook.Worksheets 
        Set rng = ws.Cells.SpecialCells(xlCellTypeAllValidation) 
        For Each c In rng 
            c.Validation.ShowInput =  not c.Validation.ShowInput      
    Next ws 
    Err.Clear 
    On Error Goto 0

Option Explicit


Sub ToggleInputMsg()
    Dim ws As Worksheet
    Dim rng As Range
    Dim c As Range
    For Each ws In ActiveWorkbook.Worksheets
      On Error GoTo nocells
        Set rng = ws.Cells.SpecialCells(xlCellTypeAllValidation)
          rng.Validation.ShowInput = Not rng.Validation.ShowInput
nocells:
        On Error Resume Next
    Next ws
End Sub