ola, e estou tentando adicionar caixas de combinação que liste algumas abas
o problema é que essas abas são criadas e excluídas durante o uso da planilha ou até tem seu nome modificado

com esse codigo preenche a lista

Sub ComboBox_Input_Filtros()
     With ActiveSheet.Shapes("Drop-Filt").ControlFormat
     .RemoveAllItems
     '        Do While .ListCount > 0: .RemoveItem (1): Loop
          For Each sheetos In Worksheets
               If sheetos.Range("A3").Value2 = "filtro" Then .AddItem sheetos.Name
          Next
     End With
End Sub

e com esse eu seleciono o item
essa macro é vinculada na caixa

Sub ComboBox_GetSelection_Filtro()
     With ActiveSheet.Shapes(Application.Caller)

          cs = Cells(2, .TopLeftCell.Column).Value2

          c = Cells(2, cs).Value2 + 6

          ActiveSheet.Cells(3, c).Value2 = .ControlFormat.List(.ControlFormat.Value)

          ContaDigitos Cells(1, cs).Value2, Range(Cells(1, cs + 1), Cells(1, cs + 6)).Value2, cs, Cells(3, cs + 6).Value2

     End With
End Sub

o problema que eu não consigo atualizar a lista de abas na mesma macro chamada pela caixa de combinação para assim somente listar as abas existentes

existe alguma forma de fazer isso?