Bom dia!!

Pode ser assim...?

TextBox1 = Format(Range("C1").Value, "H:mm")

Em C1, ponha uma formula somando o intervalo da guia.

Att

Boa Tarde!

Alexandre, obrigado por ajudar.

Necessito que seja na listBox, pois, o exemplo esta resumido, mas terei varios nomes na planilha e terei que filtrar pela listbox. Exemplo, digamos que eu queira saber quantas horas o fulano trabalhou em determinado período, depois do ciclano e assim por diante.

To a procura ... até agora nada ...

Grato!

Experimente , substitua a Function SomaListBox:

Private Sub AchaHora()
For x = 0 To ListBox1.ListCount - 1
Tempo = Tempo + CDec(TimeValue(ListBox1.List(x)))
Next
hora = Int(Tempo * 24) ' calculada qtas horas
Minuto = Int((Tempo * 24 - Int(Tempo * 24)) * 60) 'calculado qtde minutos
segundo = ((Tempo * 24 - Int(Tempo * 24)) * 60 - Int((Tempo * 24 - Int(Tempo * 24)) * 60)) * 60

TextBox1 = Format(hora, "00") & ":" & Format(Minuto, "00") & ":" & Format(segundo, "00")
End Sub

Laeoli,

Boa tarde!

Segue outra sugestão.

Por gentileza, das próximas vezes que postar arquivos aqui no fórum, faça antes a compactação dos mesmos. Caso contrário, das próximas vezes, os mesmos serão apagados.

Boa tarde!

Mude essa linha

TextBox1 = resultado

para

TextBox1 = Application.Text(resultado, "[h]:mm")

Boa Tarde!

Gente, ficou ótimo !

Muito ObrigadO!

Boa tarde!!

Eu fico feliz em ajuda, obrigado pelo retorno!!

Att