Can you toggle on and off, data validation, input messages?

[dpaton05]

I have a spreadsheet with some data validation input messages to guide the users as to instructions for using it. After they have used the spreadsheet for some time, they will become familiar in the use of it. Can you toggle all the input messages to be either on or off with the press of a button?

 

[dpaton05]

This appears to me that it should work. It toggles the tips on the first sheet, Start, where the button is, but does nothing to the tips on the second sheet.

Sub ToggleTips()
    Dim st As Range, qu As Range, ws As Worksheet
    
    For Each ws In ActiveWorkbook.Sheets
        For Each st In ActiveSheet.UsedRange
            If HasValidation(st) Then
                st.Validation.ShowInput = Not st.Validation.ShowInput
            End If
        Next st
    Next ws

        
End Sub

 

[dpaton05]

I found the problem but I am not sure of the syntax to fix it. Disabling the tips works on regular worksheet cells but I also have some tips on cells in an excel table. The code to toggle the regular cells does not work on a table.

Sub ToggleTips()
    Dim st As Range, cell As Range
  
        For Each st In ActiveSheet.UsedRange
            If HasValidation(st) Then
                st.Validation.ShowInput = Not st.Validation.ShowInput
            End If
        Next st

        For Each cell In Quoting.ListObjects("cssquote")
            If HasValidation(cell) Then
                cell.Validation.ShowInput = Not cell.Validation.ShowInput
            End If
        Next cell
End Sub

The top part of the code works for normal cells and I was trying to add in code that would look at each cell in the table, cssquote and toggle any tips in that but I was not sure of the syntax. Could someone help me with that please?

 

[dpaton05]

Don't know why but it is now toggling on/off the cells in the table.