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 ObjectDim count As IntegerLet count = 0For Each cell In SelectionLet count = count + 1Next cellMsgBox count & " item(ns) selecionados..."End Sub
Tags: Excel, count, cell, contar, célula, selected, selecionada