Thank you !!!!
Works perfectly!!!

knut egil
"RC-" skrev i melding
...
Sorry for the double post

Using VBA

Private Sub CountMeUP()
Dim MyNumber As Integer
Dim MyValue As String
Dim MyArray As Variant

MyValue = ActiveCell.Value

MyArray = Split(MyValue, ";")

MyNumber = UBound(MyArray)


End Sub


HTH


"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