Application.countif

[GaidenFocus]

I need to count the number of a certain digit in the intersection of two given ranges.

the following works fine

Application.CountIf(Intersect(Range("B2:D4"), Range("B2:J2")), 1)

I have a 2D array where i store all of my different ranges and need to compare them. The following looks like it should work, but it does not.

I get the "Invalid Procedure Call or Argument" error message.

count = Application.CountIf(Intersect(puzzle(2, y), puzzle(r, c)), number)

Any help with this would be great!