Range.Validation (Excel)

Returns the Validation object that represents data validation for the specified range.

Dim vldValidation As Validation
Set vldValidation = ActiveCell.Validation