Troubleshooting VBA for Disabling All Input Messages in a Workbook

[drew.j.harrison]

I have VBA that works quickly for disabling all the input messages on a single worksheet but when trying to generate a macro that will run it on all worksheets in the workbook I get an error on the "c.Validation.ShowInput = True" line after it finishes the first worksheet. Would appreciate any help on how I could modify the code to work properly on the entire workbook. Thanks.

Code to Disable Input Messages

Sub Disable_Workbook_Input_Messages()
    Dim iIndex As Integer
    Dim ws As Excel.Worksheet

    For iIndex = 1 To ActiveWorkbook.Worksheets.Count
        Set ws = Worksheets(iIndex)
        ws.Activate
        Call Disable_Workbook_Input_Messages
        
    Next iIndex
End Sub

Sub Disable_Workseet_Input_Messages()
    Dim c As Range
    For Each c In ActiveSheet.UsedRange
        If HasValidation(c) Then
            c.Validation.ShowInput = False
        End If
    Next c
End Sub

Function HasValidation(Cell As Range) As Boolean
    Dim x
    On Error Resume Next
    x = Cell.Validation.Type
    If Err = 0 Then
        HasValidation = True
    Else
        HasValidation = False
    End If
End Function

 

[drew.j.harrison]

Crosspost on ExcelForum

https://www.excelforum.com/excel-pr...input-messages-in-a-workbook.html#post5095359