Hi,

I have a large Excel workbook, in which I have used validation on many cells accross multiple worksheets. I have put input messages in each of the cells with validation but want to provide the user with the capability to turn these on and off.

I tried the following code:

Sub HideInputMessages()
Dim thissheet As String

thissheet = ActiveSheet.Name

For loopsheets = 1 To ActiveWorkbook.Sheets.Count
Sheets(loopsheets).Select
Cells.Select
    With Selection.Validation
        .ShowInput = False
    End With
Next
Sheets(thissheet).Select

End Sub
Unfortunately this code returns errors, probably becasue not all cells have vaidation and different cells have different validation.

Can anyone suggest a script that might work?

Thanks,

JW191.