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

Do you mean

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

--
HTH

Bob Phillips

"Phil Hageman" <[email protected]> wrote in message
news:[email protected]...
> 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
>

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" <[email protected]> wrote in message
> news:[email protected]...
> > 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
> >
>
>
>

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

--
HTH

Bob Phillips

"Phil Hageman" <[email protected]> wrote in message
news:[email protected]...
> 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" <[email protected]> wrote in message
> > news:[email protected]...
> > > 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
> > >
> >
> >
> >