Count all cells using VBA

[Deuce Bucksman]

Hello gurus,

Hopefully this is a layup: I'm trying to write a macro that will count all cells in the selection. Just the count of cells that are selected in the range, not the values within them. I know the code below is wrong, I just wanted to provide my feeble attempt as a humble request for assistance. Thanks!


Sub macrotest()
Dim cell As Range
For Each cell In selection
cell.Count = cell
MsgBox cell
Next cell
End Sub

 

[sous2817]

Something like this:

Sub Count_Selection()
    Dim cell As Range
    Dim count As Integer
    count = 0
    For Each cell In Selection
        count = count + 1
    Next cell
    MsgBox count & " cells selected"
End Sub

 

[MickG]

Try

MsgBox Selection.Count

 

[Deuce Bucksman]

Both work great! Thanks so much!