Data Validation when Cell can be either 8 or 13 characters in length

[SallyMcK]

I am trying to set up a data validation routine which will Alert with a warning if the length of the text in a cell is not 8 or 13 characters in length. I can only see how to do this for length - not both simultaneously. Is it possible for the equation to equal "13" or "8" or what is a work around for this, if any?

.Add Type:=xlValidateTextLength, AlertStyle:=xlValidAlertWarning, _
Operator:=xlEqual, Formula1:="13"

 

[AlphaFrog]

Try something like this where cell.address is the cell you are putting the data validation in.

.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertWarning, Formula1:="=OR(LEN(" & Cell.Address & ")=13, LEN(" & Cells.Address & ")=8)"