I need to perform a function for each character in a cell.

I have for each c in activecell.characters
do something
next c

I get "Object does not support this property or method"

Any advice?

Thanks,
Kevin

Hi,
From the XL online documentation on CHaracters:
"Remarks
The Characters object isn't a collection
"
That is, For Each won't work. You have to loop with a regular For:

Dim i as long, ttl as long
Dim s as string
ttl=ActiveCell.Characters.Count
For i=1 to ttl
s= ActiveCell.Characters(i,1).text
NExt

--
Regards,
Sébastien
<http://www.ondemandanalysis.com
<http://www.ready-reports.com


"Kevin" wrote:

I need to perform a function for each character in a cell.

I have for each c in activecell.characters
do something
next c

I get "Object does not support this property or method"

Any advice?

Thanks,
Kevin