Sub ShowValidation()
Dim oCell As Range
Dim sMsg As String
For Each oCell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
With oCell.Validation
sMsg = oCell.Address & vbNewLine
' .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
' Operator:=xlBetween, Formula1:="1", Formula2:="10"
sMsg = sMsg & " .type = " & .Type & vbNewLine
sMsg = sMsg & " .Alertstyle = " & .AlertStyle & vbNewLine
sMsg = sMsg & " .Operator = " & .Operator & vbNewLine
sMsg = sMsg & " .Formula1 = " & .Formula1 & vbNewLine
sMsg = sMsg & " .Formula2 = " & .Formula2 & vbNewLine
sMsg = sMsg & " .IgnoreBlank = " & .IgnoreBlank & vbNewLine
sMsg = sMsg & " .InCellDropdown = " & .InCellDropdown & vbNewLine
sMsg = sMsg & " .InputTitle = " & .InputTitle & vbNewLine
sMsg = sMsg & " .ErrorTitle = " & .ErrorTitle & vbNewLine
sMsg = sMsg & " .InputMessage = " & .InputMessage & vbNewLine
sMsg = sMsg & " .ErrorMessage = " & .ErrorMessage & vbNewLine
sMsg = sMsg & " .ShowInput = " & .ShowInput & vbNewLine
sMsg = sMsg & " .ShowError = " & .ShowError & vbNewLine
MsgBox sMsg
End With
Next
End Sub