Mike

have you checked out the SUMPRODUCT function ??

Look @ the online help for more info.

If this is not what you are after then please

elaborate more and perhaps we can help.

Ivan

Try this :-

Insert at the start of your function :-

If N + T + L + W + H = 0 Then

Calc = 0

Exit Function

End If

Delete the last line of your function and replace with :-

If N + T + L + W + H <> 0 Then

Calc = N * T * L * W * H

End If

mads

In many cases one or more of the columns may be blank and different columns could be blank. For example there could be three numbers one in T and the other two in W and H

Ivan because some of the columns are blank I would end up with a #Value# error.

One of the things I tried was as follows

Function Calc(N,T,L,W,H)

If isnull(N) or N="" then

N=1

End If

If isnull(T) or T="" then

T=1

End If

If isnull(L) or L="" then

L=1

End If

If isnull(W) or W="" then

W=1

End If

If isnull(H) or H="" then

H=1

End If

Calc=N*T*L*W*H

End Function

The only problem is that I end up with 1 (one) as the answer in a row of data which has no entries if I copy the function down

Regards Mick