Can I print Validation Messages from a worksheet?

[casperthedog]

The subject line says it all really.

I have an Excel workbook with many sheets, each containing many validation messages.

Is there an easy way to print them all out?

 

[xlbo]

What do you mean by validation messages ??
Do you mean the message that pops up if a user tries to enter an invalid entry in a cell that has data validation ??
Or do you mean something else ?? Rgds
~Geoff~

 

[casperthedog]

Yes, I mean the message that pops up when a user enters a cell to warn or inform them of input requirements.

Richard.

 

[xlbo]

Hmmm - not sure, if you know the ranges that have validation, you can access the messages by:
With Selection.Validation
.InputTitle = "Input Message"
.ErrorTitle = "Error Message"
.InputMessage = "This is a test"
.ErrorMessage = "This is also a test"
.ShowInput = True
.ShowError = True
End With

but I can't see that there is a boolean test for the existence of validation, nor a collection of validation objects to loop thru Rgds
~Geoff~

 

[xlbo]

Ok - more progress made:

Sub ListValidationMessages()
ctr = 2 'Assumes a header for the list
For Each cel In ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)
IT = cel.Validation.InputTitle
IM = cel.Validation.InputMessage
ET = cel.Validation.ErrorTitle
EM = cel.Validation.ErrorMessage
With Sheets("Sheet2&quot
.Range("A" & ctr).Value = IT
.Range("B" & ctr).Value = IM
.Range("C" & ctr).Value = ET
.Range("D" & ctr).Value = EM
.Range("E" & ctr).Value = cel.Address
End With
ctr = ctr + 1
Next
End Sub

This doesn't print the messages off 'cos I don't know whether you want input or error messages. What it DOES do is put all the input and error messages in a seperate sheet, in a list

HTH Rgds
~Geoff~