Count # of occurrences in range

I'm looking for a function to count the number of times the cell A2 in Sheet7 occurs in the A column of sheet9. This does not work:

NumFu = Application.CountIf(Sheet9.Range("A:A"), Sheet7.Range("A2").Text)

Any ideas?

Thanks in advance