Não basta ser bom, tem que ser o melhor.
FUNÇÃO PERSONALIZADA PARA EXTRAIR APENAS TEXTO
20-08-2010 11:34
Esta macro extrai apenas texto de uma celula.
Function Textos(Texto As String)
For Num = 1 To Len(Texto)
If Mid(Texto, Num, 1) <= 9 Then
Else
Textos = Textos + Mid(Texto, Num, 1)
End If
Next
End Function
abraço.
