CountIf occurrence happens more then once

[SuperDude]

Maybe it's the time of the day, but could someone explain to me where I'm failing in the syntax?

If Application.WorksheetFunction.CountIf(Sheets("BiWeeklyCalendar").Range("D5:D14"), Sheets("BiWeeklyCalendar").Range("D5"), ">" & 1) Then


MsgBox ("found")

End If


In the cell, I got a true/false with COUNTIF(D5:D10, D5)>1). I'm trying to duplicate this.

 

[Akuini]

Try:

If Application.WorksheetFunction.CountIf(Sheets("BiWeeklyCalendar").Range("D5:D14"), Sheets("BiWeeklyCalendar").Range("D5")) > 1 Then

MsgBox ("found")

End If