Message Box Improvements
 

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

Message Box Improvements
 

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

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

Message Box Improvements
 

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

--
HTH

Bob Phillips

"Phil Hageman" wrote in message
...
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