Boa tarde, Srs.

Gostaria de saber como faço para popular um ComboBox com o nome das guia disponíveis na planilha.
Estou tentando utilizar o seguinte código:

Sub CarregarComboBoxGuia()

Dim i As Long

Application.ScreenUpdating = False

    For i = 1 To Worksheets.Count
        
        With ComboBoxGuia
            .AddItem ActiveSheet.Name
            .List(.ListCount - 1, 1) = ActiveSheet.Name
        End With
        
    Next i

Application.ScreenUpdating = True

End Sub

Esta contando as guia correto mas repetindo o nome da guia ativa para todas as opções do ComboBox, não sei onde estou errando.