Message Box Improvements
Hi Bob,
Getting closer. Need somehting like:
Characters 215
Spaces 22
Total 237
Text message is good.
Phil
"Bob Phillips" wrote:
Do you mean
MsgBox "Characters: " & StringLength & Chr(10) & _
"Empty Spaces: " & EmptySpaces & Chr(10) & _
"CharCharacters 255 will not paste"
--
HTH
Bob Phillips
"Phil Hageman" wrote in message
...
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
|