Supondo que em seu formulário tenha dois combobox com os nomes padrão e o primeiro é preenchido com as 3 primeiras letras quando inicia :

Private Sub UserForm_Initialize()
    With ComboBox1
        .AddItem "ABC"
        .AddItem "BAC"
        .AddItem "CAB"
        .AddItem "DEF"
    End With
End Sub

Private Sub ComboBox1_Change()
    Dim Sht As Worksheet
    Dim sNome
    
    sNome = ComboBox1.Value
    
    ComboBox2.Clear
    
    For Each Sht In Worksheets
        
        If Mid(Sht.Name, 1, 3) = sNome Then
            ComboBox2.AddItem Sht.Name
        End If
    
    Next Sht

End Sub

Boa tarde,
Obrigado Mauro Coutinho, era exatamente isto do que eu estava precisando, resolveu o meu problema e me ajudou muito.

Obrigado
Abraços
Joilson.