Há um objeto de validação de VBA do Excel, associado ao intervalo. Ver 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 para que você possa extrair os valores .InputTitle ou .InputMessage ou min e max permitidos para a validação dessa célula programaticamente, para ver qual validation está sendo usada.
Tente o seguinte:
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 para a célula A1: Necessita Wholenumber: Range = 5 a 10 . Veja os livros on-line para mais informações.
http://msdn.microsoft.com/en-us/library/aa224495(office.11).aspx
Glenn