Another Data Validation question:Error message

[Jeff]

Hello,

With Range("e5").Validation
.Add Type:=xlValidateWholeNumber, _
AlertStyle:=xlValidAlertInformation, _
Minimum:="5", Maximum:="10"
.InputTitle = "Integers"
.ErrorTitle = "Integers"
.InputMessage = "Enter an integer from five to ten"
.ErrorMessage = "You must enter a number from five to ten"
End With

This above code will Add Data Validation to a Cell.

Is their a way to then retrieve back what Type it is ?

For example from the above code it is being set to the Type of
"xlValidateWholeNumber". How can this later on be retreived so I can tell
what type it is ?

Something like strType = Cells(5,5).Validation.Type
'Notes this does not work but something like this is what I am looking for.

Any help would be greatly appreciated.

Thank you,
Jeff

[Jim Thomlinson]

You can get the type but it will come back as the number represented by the
constant. Whole number 1, Decimal 2, ...

Sub test()

MsgBox ActiveSheet.Range("E5").Validation.Type
End Sub
--
HTH...

Jim Thomlinson


"Jeff" wrote:

> Hello,
>
> With Range("e5").Validation
> .Add Type:=xlValidateWholeNumber, _
> AlertStyle:=xlValidAlertInformation, _
> Minimum:="5", Maximum:="10"
> .InputTitle = "Integers"
> .ErrorTitle = "Integers"
> .InputMessage = "Enter an integer from five to ten"
> .ErrorMessage = "You must enter a number from five to ten"
> End With
>
> This above code will Add Data Validation to a Cell.
>
> Is their a way to then retrieve back what Type it is ?
>
> For example from the above code it is being set to the Type of
> "xlValidateWholeNumber". How can this later on be retreived so I can tell
> what type it is ?
>
> Something like strType = Cells(5,5).Validation.Type
> 'Notes this does not work but something like this is what I am looking for.
>
> Any help would be greatly appreciated.
>
> Thank you,
> Jeff
>
>
>