Excel - Count Cells With Values

This macro counts cells that have values in them.

Excel

2680
1659
0
0

Add to collection

1 Open MS Excel.

2 Create a blank workbook.

3 Go to Developer's tab > click on "Visual Basic" button or hit Alt + F11.

4 Go to Insert tab > click on "Module" or hit M.

5 Copy the VBA code from below.

6 Paste the code in the newly created module.

7 Go to Run tab > click on "Run Sub/UserForm" or hit F5.

8 That's it!

Code

'==========================================
' Count Cells With Values
'==========================================
Sub countCellsWithValues()
    ' Set variables
    Dim strMessage As String
    ' Get count
    strMessage = WorksheetFunction.CountA(Worksheets(1).UsedRange)
    ' Return a message
    MsgBox "You have " & strMessage & " cells with values."
End Sub