This worked in Excel 2000

Dim x
On Error GoTo errorhandler
x = Range("E1").Validation.Type = 1
MsgBox "yes"
Exit Sub

errorhandler:
On Error GoTo 0

MsgBox "no"


--
steveB

Remove "AYN" from email to respond
"Jeff" <Jeff@discussions.microsoft.com> wrote in message
news:909F83A4-669B-4494-9EBA-F97D8FB1DA18@microsoft.com...
> Hello,
>
> In Excel you can select "Data" then "Validation" & then set data
> validation
> on Cells.
>
> I was looking at the VBA Validation Object seeing how to progromatically
> Add, Delete, or Modify Data Validation.
>
> But what I want to know is, is their a way through VBA code to tell if a
> Cell has Data Validation on it or not, bsaically returns True or False.
>
> For for example if I select Cells(1,1).select, is their Data Validation on
> it ?
>
> Any help would be greatly appreciated.
>
> Thank you,
> Jeff
>