Boa noite!!

Tente adaptar

Private Sub ListBox1_Change()
    Dim intIndex As Integer
    Dim intCount As Integer
     
    With ListBox1
        For intIndex = 0 To .ListCount - 1
            If .Selected(intIndex) Then intCount = intCount + 1
        Next
    End With
    Label1.Caption = "Selecionado " & intCount & " de " & ListBox1.ListCount
End Sub
Private Sub UserForm_Initialize()
    With ListBox1
        .AddItem "A"
        .AddItem "B"
        .AddItem "C"
        .AddItem "D"
        .AddItem "E"
        .AddItem "F"
        .AddItem "G"
    End With
    Label1.Caption = "Nada foi selecionado"
End Sub

Obs: Eu não olhei seu código.

Att

Acho que o meu subject não foi o mais adequado.

Meu código está igual. Teu código escreve a quantidade selecionada em um label de um UserForm. Meu listbox não fica em userform, é um objeto ActiveX na planilha.

O que eu quero é passar o objeto via parâmetro uma função que me retorne esses valores.

Function contaSelecionados(Lb as ListBox) as Integer
    
    (...)
     contaSelecionados = contador

End Function

Quando dentro de outro codigo eu coloco

Selecionado = contaSelecionados(ListBox1)

Recebo a mensagem de "Tipos Incompativel".

Queria saber se tem como passar esses objetos por parametro.

Obrigado.

Boa tarde!!

Você poderia postar por gentileza seu arquivo modelo compactado e postar aqui no fórum?

Att

Não tenho rar aqui no computador do trabalho, apenas ZIP.