=LEN(A1)-LEN(SUBSTITUTE(A1,";","")).

If there is an ; at start and finish, just subtract one. If there are
neither, add 1.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"DS NTE" wrote in message
...
In a cell I have this values

;1,23;2,5;5,5;6,5; etc......

How can I, using VBA count how many values there are, separated by ;
(semicolon)


Knut Egil