Experimentealterar o trecho no initialize:

a = Application.WorksheetFunction.CountA(Plan5.Columns(1))
If a < 2 Then
    a = 2
End If
ListBox1.RowSource = "RELATORIO_CHEQUES! A2:F" & a

Boa tarde Reinaldo,

Obrigado pelo retorno, mas não funcionou não. Coloquei no initialize da listbox e também no user que chama a listbox e também no botão que chama a listbox.

Tem alguma outra sugestão, amigo?

Obrigado novamente.

Edmilson

Edmilson, a dica do Reinaldo só irá funcionar se na aba "RELATORIO_CHEQUES" você tiver um Cabeçalho, pois no modelo que anexou ela não tem nenhum cabeçalho. ficando a rotina da seguinte forma:

Private Sub UserForm_Initialize()

    Dim hWnd As Long
    hWnd = FindWindowA(vbNullString, Me.Caption)
    SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF

    a = Application.WorksheetFunction.CountA(Plan5.Columns(1))

    If a < 2 Then
        a = 2
    End If
    
    ListBox1.RowSource = "RELATORIO_CHEQUES! A2:F" & a
    ListBox1.ColumnWidths = "1,3 cm;2,3 cm;8,0 cm;8,0 cm;2,8 cm ;5,0 cm ;"

End Sub

[]s

Mauro,

Perfeito. Testado e aprovado. Eu até estava com linha dobrada no meu código e nem tinha percebido. "Pouca prática".

Grande abraço e muito obrigado.

Edmilson