Hi Floyd,

I apologize for asking so many questions the last two
days. All of my

Why should you? Isn't that what a newsgroup exists for?



Application.SumProduct(--Range(Rng1Addr), --Range
(Rng2Addr))

Try

SumProduct = Application.WorksheetFunction.SumProduct(Range
("A1", "A3"), Range("B1", "B3"))

Best

Markus


This does nothing when executed.

Where Rng1Addr = "A1:A3" and Rng2Addr - "B1:B3" and both
are defined as
Strings.

For reference: Rng1Addr = Rng1.Offset(-
WorksheetFunction.Min(YearDelta,
Fac_Depr), 0) _
.Resize(WorksheetFunction.Min(YearDelta + 1,
Fac_Depr + 1),
1).Address

Thanks in advance.

.