Dear All,

This codeline triggers an error if no validation is set (any value)

If ActiveCell.Validation.Type = xlValidateList Then

How can I first test if validation is set ?

If 'ActiveCell.valudation is set ' then
If ActiveCell.Validation.Type = xlValidateList Then
..................code........................
end if
end if

Thanks,

Filips