Message Box Improvements

[Guest]

This code counts the characters and spaces in a cell. Could the message box
be modified to also show the sum of characters and spaces, as well as a text
statement “Characters > 255 will not paste�

Sub CountCharacters()
Dim StringLength As Integer
Dim EmptySpaces As Integer
Dim I As Integer
Dim CellRef As Variant
CellRef = Trim(ActiveCell.Value)
StringLength = Len(ActiveCell.Value)
For I = 1 To Len(ActiveCell.Value)
If Mid(CellRef, I, 1) = " " Then EmptySpaces = EmptySpaces + 1
Next
MsgBox "Characters: " & StringLength & Chr(10) & "Empty Spaces: " &
EmptySpaces
End Sub

 

[Bob Phillips]

Do you mean

MsgBox "Characters: " & StringLength & Chr(10) & _
"Empty Spaces: " & EmptySpaces & Chr(10) & _
"CharCharacters > 255 will not paste"

 

[Guest]

Hi Bob,

Getting closer. Need somehting like:

Characters 215
Spaces 22
Total 237

Text message is good.

Phil

 

[Bob Phillips]

MsgBox "Characters: " & StringLength & vbnewline & _
"Spaces: " & EmptySpaces & vbNewLine & _
"Total " & StringLength + EmptySpaces