None found so far.
I will (heavyheartedly) use your code.
No offence! Have a nice day!
Peter

"Tom Ogilvy" wrote:

I would disagree.

Let's see your elegant approach.

--
regards,
Tom Ogilvy


"Peter Zinniker" wrote:

Uff, not very elegant coding.
Anyway thank you very much for the hint.
Peter

"Tom Ogilvy" wrote:

Something like this:

Sub AABB()
Dim s As String
Set target = ActiveCell
s = ""
On Error Resume Next
s = target.Validation.Formula1
On Error GoTo 0
If s < "" Then
MsgBox s
Else
MsgBox "No validation"
End If
End Sub


--
Regards,
Tom Ogilvy


"Peter Zinniker" wrote:

I want to read the Formula1 property of a validation object of the cell Target.
Target.Validation.Formula1 produces an "Application-defined or
object-defined error" if Target don't have a validation rule.
How cant I check whether a validation list is defined?