io ho seguito la tua impostazione, ma se le cose stanno così basta
codice:
Sub cerca()
numero = 5
n = Application.WorksheetFunction.CountIf(Range("C5:H10"), numero)
MsgBox n
End Sub