без макросов как не знаю,но вот такая функция может помочь:  
 
Function sum_item(a As String) As Integer  
 
   Dim s As String, n As Integer, i As Integer  
   s = Range(a).Formula  
   n = 0  
   For i = 1 To Len(s)  
   If Mid(s, i, 1) = "+" Then n = n + 1  
   Next i  
   If n > 0 Then n = n + 1  
   sum_item = n  
End Function  
искать ее в "определенных пользователем", обращаться:  
sum_item(адрес("требуемая ячейка"))

вообще то всё верно.  
за исключением одного нюанса...  
в такой формуле (корректной с точки зрения Excel)  
=12++2++3++4  
насчитает 7 слагаемых ;-)))  
 
ps. а вызывать можно и так: =Sum_item("A1")

Да, спасибо, всё получилось когда поставил "A1" вместо А1 :)  
Только мне нужно, чтобы при изменении кол-ва слагаемых оно автоматически пересчитывалось, а этого не происходит. И нужно, чтобы формула копировалась перетаскиванием. Может, поможете?