Excel - Count Cells With Values

This macro counts cells that have values in them.


  • 2125
  • 1190
  • 0
  • 0
Add to collection
© 2023VBAmacros.net

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!


' 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

Sort by:
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.
VBAmacros.net VBAmacros.net
Code was successfully copied!
VBAmacros.net VBAmacros.net
Please sign in!
VBAmacros.net VBAmacros.net
You've already voted!