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

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

--
Regards,
Tom Ogilvy


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

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

"Tom Ogilvy" wrote:

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

--
Regards,
Tom Ogilvy


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