Number of Cells in a Selection (range)

Hi all,

I would like to identify if there is more than one Cell in a Selected range before doing my procedure.

Do you know how to determine if there is more than one Cell in a Selected Range?

Thanks!

    For Each myCell In Selection
            CountCell = CountCell + 1
        Next myCell
        
        If CountCell > 1 Then
            Selection.SpecialCells(xlCellTypeVisible).Select
        End If

Good afternoon kyrgyzstanart

I know you've marked your selection as solved as you've found a solution, but there is an alternative to looping through the cells :

CountCell = Selection.Count

HTH

DominicB