Sub Array3() Dim Data As Variant Data = Range("A1:A20").Value MsgBox "Number of Non Blank Elements = " & WorksheetFunction.CountA(Data) & vbCr End Sub