Oops. Bonehead. Instead of:

arr(i) = ActiveSheet.Cells(i, 1)

you'd want something like:

arr(i) = rng.Cells(i)
--
C^2
Conrad Carlberg

Excel Sales Forecasting for Dummies, Wiley, 2005