Parece possível sim. Precisamos de um modelo com seu form e listbox.
No evento click do listbox vc chamaria uma rotina que que selecionaria as células (ou linhas) na planilha ativa, e agendasse para em alguns segundos, rodar outra rotina que desselecionaria tudo.
(dá uma procurada em Application.OnTime)

No mais, fica difícil montar um modelo sem o seu modelo COMPACTADO. Nos ajude a te ajudar.

Parece possível sim. Precisamos de um modelo com seu form e listbox.
No evento click do listbox vc chamaria uma rotina que que selecionaria as células (ou linhas) na planilha ativa, e agendasse para em alguns segundos, rodar outra rotina que desselecionaria tudo.
(dá uma procurada em Application.OnTime)

No mais, fica difícil montar um modelo sem o seu modelo COMPACTADO. Nos ajude a te ajudar.

Entendendo esse código consegui remover a seleção em 3 segundos.

Dim B
Public theend As Date

Sub parartempo()
    'Encerra a cronometragem
    On Error Resume Next
    Application.OnTime B, Procedure:="Atualiza", Schedule:=False

End Sub

Sub cometempo()
    
    'Verifica diferença dos segundos
    If Time < theend Then
        'Atualiza a cada 1 segundo
        Application.OnTime Now + TimeValue("00:00:01"), "Atualiza"

    Else
        'Chama rotina para encerrar contagem
        Application.Run "parartempo"
        
        'Fecha o Formulario
        With frm_estoque
        .ListBox1.ListIndex = -1
        End With
        
    End If
    
End Sub
Sub Atualiza()
    Call cometempo
End Sub

Bt chama

Private Sub CommandButton3_Click()
Dim B

    B = Time

    theend = Time + TimeValue("00:00:03")

Application.Run "cometempo"

End Sub

Precisando de uma código pra selecionar A linha na ListBox.

Ex: Se a Testbox1 for igual ao item da COLUNA 0 - ZERO, então linha seleciona.

Para eu entender o que vc disse:

Vc conseguiu um código que faz o que vc precisa... ok!
Agora vc precisa de mais um?

o que vc quer dizer com :
"se testbox1 = item da coluna 0 (nao existe coluna 0 no excel) então linha seleciona" ? (não entendi seu português)...

Para eu entender o que vc disse:

Vc conseguiu um código que faz o que vc precisa... ok!
Agora vc precisa de mais um?

o que vc quer dizer com :
"se testbox1 = item da coluna 0 (nao existe coluna 0 no excel) então linha seleciona" ? (não entendi seu português)...

Desculpa rsrsrs esqueci de citar ListBox1 coluna 0

Por exemplo: Se o item da textbox1 for igual ao item da coluna 0 linha tal da ListBox1, então linha seleciona ( código que falta )

como vc define a "linha tal" ?

como vc define a "linha tal" ?

Dim i As Long
For i = ListBox1.ListCount - 1 To 0 Step -1
' If TextBox1.Value = ListBox1.Selected(i) Then 'essa linha de código como define
ListBox1.Selected(i) = True
' End If
Next

Na coluna 0 da Lixtbox é uma coluna de código 1 2 3 4... acho que vai agora rsrsrs