Navegar dentro do ListBox

[Kal_el]

Pessoal estou anexando um projetinho no vba excel de cadastro de horários. Como podem ver ele possui duas listbox. Uma que carrega todos os horários (00:00 às 23:59) e outra com os horários já cadastrados. Quando utilizo os botões de navegação "<" e ">" consigo ver na planilha mas não no listbox de "horários cadastrados" somente os campos: textbox, combobox.

Private Sub btnproxreg_Click()
Dim selecao As Integer
Dim quantidade As Integer

    ActiveCell.Offset(1, 0).Select
     If ActiveCell.Offset.Value = "" Then
        MsgBox "Fim dos Registros", vbOKOnly
      End If
      
    txtlinha.Value = ActiveCell.Offset(0, 0).Value
    cbSentido.Value = ActiveCell.Offset(0, 1).Value
    cbCalendario.Value = ActiveCell.Offset(0, 2).Value
    txtatendimento.Value = ActiveCell.Offset(0, 4).Value
    
    quantidade = Me.ltcarrega.ListCount
    selecao = Me.ltcarrega.ListIndex
    
  If selecao > 0 And selecao <= quantidade - 1 Then
   Me.ltcarrega.Selected(selecao - 1) = True
   Else
   Me.ltcarrega.Selected(0) = False
   End If

End Sub

Private Sub btnregatual_Click()
Dim selecao As Integer
Dim quantidade As Integer

    ActiveCell.Offset(-1, 0).Select
     If ActiveCell.Offset.Value = 1 Then
        MsgBox "Primeiro Registro", vbOKOnly
      End If
      
    txtlinha.Value = ActiveCell.Offset(0, 0).Value
    cbSentido.Value = ActiveCell.Offset(0, 1).Value
    cbCalendario.Value = ActiveCell.Offset(0, 2).Value
    txtatendimento.Value = ActiveCell.Offset(0, 4).Value
    
  quantidade = Me.ltcarrega.ListCount
  selecao = Me.ltcarrega.ListIndex
  
  If selecao >= 0 And selecao < quantidade - 1 Then
   Me.ltcarrega.Selected(selecao + 1) = True
   Else
   Me.ltcarrega.Selected(0) = False
   End If
     
    
End Sub