VBA Count Blank in Activesheet Used Range

Sub countBlnk()

 

Dim count As Integer

 

count = Application.WorksheetFunction.CountBlank(ActiveSheet.UsedRange)

 

MsgBox count

 

End Sub