VBA Excel - Contando células selecionadas.

| Blog Office VBA | Blog Excel | Blog Access |

Pelos mais diversos motivos e situações, eventualmente precisamos saber quantas células estão selecionadas, eis como fazê-lo:

Sub CntSelected()

    Dim cell As Object

    Dim count As Integer

    Let count = 0

    For Each cell In Selection

        Let count = count + 1

    Next cell

    MsgBox count & " item(ns) selecionados..."

End Sub

Tags: VBA, Excel, count, cell,  contar, célula, selected, selecionada