Boa tarde, jrodrig7.

Como não postou um exemplo, fica hum pouco complicado de encontrar uma solução, mas vamos lá ...

Coloque essa parte do código como uma Sub:

Sub CarregaListBox()
Sheets("GavetaseNomes").Activate
ListBox1.ColumnHeads = True
    With Sheets("GavetaseNomes").UsedRange
    ListBox1.ColumnWidths = "1"
        ListBox1.ColumnCount = .Columns.Count
        ListBox1.RowSource = .Offset(1).Resize(.Rows.Count - 1).Address
End With

Depois realizer a chamada dela no UserForm:

Private Sub UserForm_Initialize()
        Call CarregaListBox
End Sub

Em seu ComboBox ficaria mais ou menos assim:

Private Sub cbxnumero_Change()
Sheets("GavetaseNomes").Activate
Sheet6.Range("B13").Value = cbxnumero.Value
NomeDaGaveta = Application.WorksheetFunction.VLookup(Sheet6.Range("B13"), Sheet6.Range("A15:B30"), 2, False)
txtnomedagaveta.Text = NomeDaGaveta
Sheet6.Range("C13").Value = NomeDaGaveta

ActiveSheet.ListObjects("Documentos").Range.AutoFilter Field:=4, Criteria1 _
:=cbxnumero.Value

        Call CarregaListBox

End Sub

Testa e nos de um retorno...De preferência com uma arquivo de exemplo

Bom dia.

Muito obrigado pela disposição em responder, mas continuo com o mesmo problema. A planilha é filtrada corretamente, mas a listbox continua apresentando todos os itens, ignorando o filtro.

Envio o modelo em anexo.

Obrigado
Jean

Alguém?

Boa tarde, jrodrig7.

Teste esse arquivo.