Não sei se entendi, mas experimente:
Select Case Len([A1])
Case 4
MsgBox "aqui a macro1"
Case 5
MsgBox "aqui a macro2"
Case 6
MsgBox "aqui a macro3"
Case Else
MsgBox "Não é o tamanho"
End Select
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 17/12/2012 5:04 am