Guima, Essa rotina que sugeriu verifica se há itens adicionados na Listview, ma não o que eu preciso: Que seja verificado se há algum item selecionad...

Benzadeus, fiz conforme orientou e me retornou um erro: "Erro de compilação, Erro de Sintaxe" Acertei a expressão de consulta que ficou da...

Tente desta forma: Range("O4").Formula = "=CONT.SE(Plan2!A:A;"Casa")