Bom dia!!
talvez te ajude...

Consegue adaptar o código abaixo?

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
     
    With ListView1
        .SortKey = ColumnHeader.Index - 1
        If .SortOrder = lvwAscending Then
            .SortOrder = lvwDescending
        Else
            .SortOrder = lvwAscending
        End If
        .Sorted = True
    End With
End Sub

Att

Alexandrevba, bom dia.
Obrigado pela sua resposta, mas não é isso que estou precisando ( clicar na coluna ), e sim quando abro o formulário frmFornecedor, já tentei colocar esse código sem o private, mas não funcionou.

Boa tarde!!

Não testado!!

With ListView1
         
        .Gridlines = True
        '.View = lvwReport
        .FullRowSelect = True
        .ColumnHeaders.Add Text:="ID", Width:=20      'ID= Nome da 1ª coluna
        .ColumnHeaders.Add Text:="EMPRESA", Width:=295, Alignment:=0    'País= Nome da 2ª coluna
        .ColumnHeaders.Add Text:="CNPJ", Width:=110, Alignment:=2    'UF= Nome da 3ª coluna
        '.ColumnHeaders.Add Text:="CNPJ", Width:=90, Alignment:=2    'UF= Nome da 4ª coluna
        '.ColumnHeaders.Add Text:="NOTA Nº", Width:=50, Alignment:=1    'UF= Nome da 5ª coluna
        '.ColumnHeaders.Add Text:="VALOR", Width:=80, Alignment:=1    'UF= Nome da 6ª coluna
        ' #### AleVBA ######
        '.SortKey = 2
        '.SortOrder = lvwDescending
        '.Sorted = True
    End With

Att

Alexandre, bom dia.
Esta dando erro, segue anexo.

Bom dia!!

Cara eu não sei se vou conseguir te ajudar...

talvez seu Sistema Operacional + (arquitetura) e MS Office + (arquitetura) + o controle ListViwer seja diferente do meu.

vamos ver se mais alguém pode te ajudar, desculpa.

Att

Ok, mesmo assim obrigado.