Hello -

I am trying to do a very simple thing: I would like to know whether a
certain cell has a List Validation (i.e. dropdown) turned on.

I get the lSheet.Range().Validation but how does this tell me whether
there is a dropdown validation? I cannot check eny of the fields
without getting an error if there is none defined?

I tried lSheet.Range().Validation.Type = xlValidateList but that does
not work if there is no validation.

Any ideas?

Thanks,
Joe

On Error Resume Next
dv = ActiveCell.Validation.Formula1
On Error GoTo 0
MsgBox Not IsEmpty(dv)


--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Joe HM" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hello -
>
> I am trying to do a very simple thing: I would like to know whether a
> certain cell has a List Validation (i.e. dropdown) turned on.
>
> I get the lSheet.Range().Validation but how does this tell me whether
> there is a dropdown validation? I cannot check eny of the fields
> without getting an error if there is none defined?
>
> I tried lSheet.Range().Validation.Type = xlValidateList but that does
> not work if there is no validation.
>
> Any ideas?
>
> Thanks,
> Joe
>

Ish ... is that the only way? Oh well ... I guess it works ... thanks!

Joe

On Jan 4, 1:34 pm, "Bob Phillips" <bob....@xxxx.com> wrote:
> On Error Resume Next
> dv = ActiveCell.Validation.Formula1
> On Error GoTo 0
> MsgBox Not IsEmpty(dv)
>
> --
> ---
> HTH
>
> Bob
>
> (change the xxxx to gmail if mailing direct)
>
> "Joe HM" <unixve...@yahoo.com> wrote in messagenews:(E-Mail Removed)...
>
>
>
> > Hello -
>
> > I am trying to do a very simple thing: I would like to know whether a
> > certain cell has a List Validation (i.e. dropdown) turned on.
>
> > I get the lSheet.Range().Validation but how does this tell me whether
> > there is a dropdown validation? I cannot check eny of the fields
> > without getting an error if there is none defined?
>
> > I tried lSheet.Range().Validation.Type = xlValidateList but that does
> > not work if there is no validation.
>
> > Any ideas?
>
> > Thanks,
> > Joe- Hide quoted text -- Show quoted text -