this gave me a result of 1.718281711 in cell b1

note i output each denominator in column a

Sub series()
s = 0
For j = 1 To 150
denom = 1
For i = 1 To j
denom = denom * i
Next i
'write each denominator out
Cells(j, 1) = denom
s = s + 1 / denom
Next j
Cells(1, 2) = s
End Sub


--
duane


------------------------------------------------------------------------
duane's Profile: http://www.excelforum.com/member.php...o&userid=11624
View this thread: http://www.excelforum.com/showthread...hreadid=385467