Troque a rotina por esta:

Private Sub UserForm_Initialize()
    Dim Plan As Worksheet
    
    For Each Plan In ActiveWorkbook.Worksheets
        
        If Plan.Name = "Plan1" Or Plan.Name = "Plan2" Then
        
        Else
            ComboBox1.AddItem Plan.Name
        End If
        
    Next Plan
    
End Sub

[]s

Boa tarde Rafael,

Vê se ajuda.

[EDIT]Fala Mauro, blz?
Enquanto estava postando você colocou... Cara, ainda estou apanhando com esses Array's, então estou tentando usa-los para ir pegando... Segue meu código:

Private Sub UserForm_Initialize()
Dim Plan    As Worksheet
Dim PlanD() As Variant
Dim i       As Long

PlanD = Array("Plan1", "Plan2") ' Insira aqui as planilhas que não quer que apareça
Quant = Application.CountA(PlanD) - 1
ComboBox1.Clear

    For Each Plan In ActiveWorkbook.Worksheets
        For i = 0 To Quant
            If Plan.Name = PlanD(i) Then
                GoTo Proximo
            End If
        Next i
        ComboBox1.AddItem Plan.Name
Proximo:
    Next Plan
End Sub

Qualquer coisa da o grito.
Abraço

Mauro,

Muito obrigado, funcionou perfeitamente e era o que eu precisava.

Bernardo, muito obrigado também, pois seu exemplo também funcionou muito bem, apesar de eu nao compreender muita coisa que esta la rs e o que eu sei sobre Array é bem o básicão, como ordenar algumas coisas só rs.

valeu, tenham uma otima tarde !!!

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.