Compile Error

[Guest]

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

 

[Tom Ogilvy]

Dim StrinLen As Integer
Dim EmptySpaces As Integer
Dim I As Integer
Dim CellRef as Variant

 

[Guest]

Thanks, Tom - works great.

Tom, if you have time, could you look at my post of 6/6 concerning the
hyperlink - trying to put some polish on an application.

Thanks, Phil