Exemplo:

Sub Macro1()

Range("A2").Select

With Selection.Validation
.Delete
.Add Type:=xlValidateTextLength, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="1", Formula2:="10"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Limite de 10 caracteres."
.ShowInput = True
.ShowError = True
End With

End Sub

O recurso "Validação e Dados" não seria mais simples do que uma macro ?

"Validação de dados" / Comprimento de Texto / Está Entre / Minimo (1) e Maximo (10)

[]s

Boa noite!!

Obrigado!!!..Edson deu certo.

Mauro valeu mesmo um recurso interessante !!!....Obrigado!!!!

Att..

Chess, quando postei, foi praticamente no mesmo instante que o Edson, só depois que vi o post dele, mas só para você entender, como postou no fórum macros, o que eu postei é para ser feito manualmente sem macro, e o que o Edson postou é a rotina que faz o que citei, só que automatizado, facilitando, pois só com um clique ou uma tecla de atalho terá o mesmo resultado.

[]s

Bom dia!!

ha sim, valeu Mauro, entendi..Obrigado Pessoal!!!!!!!!!!!!!

At..

Bom dia!!

ha sim, valeu Mauro, entendi..Obrigado Pessoal!!!!!!!!!!!!!

At..

Bom dia!!

ha sim, valeu Mauro, entendi..Obrigado Pessoal!!!!!!!!!!!!!

At..