Running the below sub caused a compile error: Variable not defined.

The "Cell ref =" portion of the fourth line is highlighted.

What would the correction be?

Thanks, Phil

Sub CountCharacters()

Dim StrinLen As Integer
Dim EmptySpaces As Integer
Dim I As Integer

CellRef = Trim(ActiveCell.Value)

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