Someone may have a simple formula, but if not, you could write a bit
of code:

Public Function PowSum(A as Double, B as Integer) As Double
'
Dim I as Integer
'
    PowSum = 0#
    For I = 1 to B
        PowSum = PowSum + A^I
    Next I
    Return
End

If you put it in a module in the workbook it should be usable
anywhere.

Allen
-- 
Allen Windhorn  (507) 345-2782  FAX 507.345.2805
Kato Engineering (a Caterpillar Company)
2075 Howard Drive, P.O. Box 8447, N. Mankato, MN  56002
[EMAIL PROTECTED] (pending change) or [EMAIL PROTECTED]

Reply via email to