Trouble with RSq function in VBA

Maybe capture the visible cell values in a pair of Variants, and then compute Rsq from those:

Dim vX as Variant, vY as Variant, dR as Double

vX = Sheets("Data").Range("aj3:aj1003").SpecialCells(xlCellTypeVisible).Value
vY = Sheets("Data").Range("ak3:ak1003").SpecialCells(xlCellTypeVisible).Value
R = WorksheetFunction.Rsq(vY, vX)

Hello puckalicious,

SHG's idea is a good one. The arrays will be faster and will overcome an inherent problem wih using "visible cells". The cells returned by "visible cells" are dependent on your filter and most likely are not going to contiguous. The cells used in RSQ must be contiguous, or it will throw an error. All the values in the arrays will be contiguous and not cause a problem.

Sincerely,
Leith Ross