How can i hide/show input messages with a sub?

[MisterExcellent]

Hello,

how can i hide and show data-validations- input messages in a workbook with a sub?

I have a lot of input messages which i would like to "hide" and if required "show" in the workbook.

Do you know a suitable solution?

 

[Ruddles]

You can place the messages in 'shapes', then set the shapes to .Visible=True or .Visible=False when and as each one is required or not.

 

[MisterExcellent]

You can place the messages in 'shapes', then set the shapes to .Visible=True or .Visible=False when and as each one is required or not.

Hi Ruddles,
i found a way to show or hide the messages but how can i use this in a sub with a commandbutton?

'APJToolTips
Private Sub Worksheet_Change(ByVal Target As Range)

        Dim rng As Range
        Dim cel As Range

        If Target.Address = Me.Range("ShowUserMsg").Address Then
                Set rng = Me.Cells.SpecialCells(xlCellTypeAllValidation)
                For Each cel In rng.Cells
                        With cel.Validation
                                If .InputMessage <> "" Then .ShowInput = Target.Value
                        End With
                Next cel
        End If
End Sub

 

[Ruddles]

You could set the button to execute something like:-

ActiveSheet.Shapes("Shape1").Visible=Not ActiveSheet.Shapes("Shape1").Visible

Change the name of the shape to match whatever your shape is called.

That will toggle Shape1 from visible to not visible and back to visible each time the button is clicked.

 

[MisterExcellent]

Thank you Ruddles