Boa tarde!!

Tente..

Sub AleVBA_10418()
Range("A2").Formula = "=LEN(SUBSTITUTE(A1,"" "",""""))"
MsgBox "Contém " & Range("A2").Value & "  Caracteres"
End Sub

Primeiramente obrigado por seu tempo e disposição em me ajudar!
Testei o exemplo e ele retornou o total de caracteres e desconsiderou os espaços.
É quase isso, porém agora tenho um norte e vou tentar aprimorar.

Valeu mesmo!

abs

Thiago

Amigo, vc não foi muito claro ao explicar como quer fazer isso, se é pra gerar o resultado numa planilha do excel, ou o que.

Por isso, eu fiz o código abaixo que mostra o resultado em mensagem. Confere:

Sub Listar_Caracteres_GT()

Dim Texto As String
Dim i As Integer
Dim Relatorio As String
Dim Caractere As String
Dim IntCount_I As Integer
Dim IntCount_F As Integer
Dim Count As Integer

Texto = Range("A1")

For i = 1 To 255
    Caractere = Chr(i)
    IntCount_I = Len(Texto)
    Texto = Replace(Texto, Caractere, "")
    IntCount_F = Len(Texto)
    Count = IntCount_I - IntCount_F
    If Count > 0 Then Relatorio = Relatorio & Caractere & " = " & Count & vbCrLf
Next i

MsgBox (Relatorio)

End Sub

Vc pode adaptar com o que o alevba postou.

Abs

Vai uma terceira sugestão...

Sub retorna_total_caracteres()

' conta com espaço
Dim texto As Variant
Dim texto2 As Variant


    linha = ActiveCell.Row
    coluna = ActiveCell.Column

        texto = Cells(linha, coluna)

            MsgBox ("total com espaços:" & Len(texto) )

End Sub