Code:
count=WorksheetFunction.CountIf(Worksheets(1).Range("D:D"), "B")