Why do you need VBA? just use a =COUNTIF() formula