Existe um objeto Excel VBA Validation, associado ao intervalo. Veja o código:
With Range("e1").Validation
.Add Type:=xlValidateWholeNumber, _
AlertStyle:=xlValidAlertInformation, _
Minimum:="5", Maximum:="10"
.InputTitle = "Needs Wholenumber"
.ErrorTitle = "Integers"
.InputMessage = "Enter an integer from five to ten"
.ErrorMessage = "You must enter a number from five to ten"
End With
Essas propriedades são legíveis, então você pode extrair o .InputTitle ou .InputMessage ou os valores min e max permitidos para a validação da célula programaticamente, para ver qual validação está sendo usada.
Tente isto:
Sub test()
Range("a1") = Range("e1").Validation.InputTitle & ": Range = " & Range("e1").Validation.Formula1 & " to " & Range("e1").Validation.Formula2
End Sub
O código acima retorna à célula A1: Precisa de Wholenumber: Range = 5 a 10 . Veja livros on-line para mais informações. link
Glenn