Sub CountNonBlankCells() Dim myCount As Integer myCount = Application.CountA(Selection) MsgBox "The number of non-blank cell(s) in this selection is : " & myCount, vbInformation, "Count Cells" End Sub