Sub cha()
Worksheets("Sheet1").Range("A1:c10").Select
x = Application.CountIf(Selection, ">=" & 90)
MsgBox x
End Sub
Sub cha1()
x = Application.CountIf(Range("a1:c10"), ">=" & 90)
MsgBox x
End Sub
Sub cha()
Worksheets("Sheet1").Range("A1:c10").Select
x = Application.CountIf(Selection, ">=" & 90)
MsgBox x
End Sub
Sub cha1()
x = Application.CountIf(Range("a1:c10"), ">=" & 90)
MsgBox x
End Sub