Dim okCount As Integer Dim ngCount As Integer Dim emptyCount As Integer okCount = WorksheetFunction.CountIf(Range("D9").CurrentRegion.Columns(2), "ok") ngCount = WorksheetFunction.CountIf(Range("D9").CurrentRegion.Columns(2), "ng") emptyCount = WorksheetFunction.CountIf(Range("D9").CurrentRegion.Columns(2), "") MsgBox "ok:" & okCount & "/ng:" & ngCount & "/empty:" & emptyCount