Len Count Problems

[austin350s10]

I am trying to use the code below to count the number of characters in a box consisting of many merged cells. I have named the range "Summary". When I run the script Len continues to return 0 no matter what I put in the "Summary" area. What am I doing wrong here?

Sub AutoResizeText()
Dim LResult As Long
LResult = Len(Summary)
Range("A54").Value = LResult
End Sub

 

[VoG]

Maybe this

Sub AutoResizeText()
Dim LResult As Long, c As Range
For Each c In Range("Summary")
    LResult = LResult + Len(c.Value)
Next c
Range("A54").Value = LResult
End Sub

 

[jasonb75]

Maybe

Sub AutoResizeText()
Range("A54").Value = Evaluate("=SUM(LEN(summary))")
End Sub