Para carregar os demais listview, desde que estejam com os nomes padrões, utilize :

Private Sub Atualizar()
   
Dim Item As ListItem
Dim LinhaFinal As Integer
Dim i As Integer

    'Page Perfumaria
    ListView1.ListItems.Clear
    LinhaFinal = Plan1.Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 2 To LinhaFinal
        
        
        Set Item = ListView1.ListItems.Add(Text:=Plan1.Cells(i, 1))
         Item.SubItems(1) = Plan1.Cells(i, 2)
         Item.SubItems(2) = Plan1.Cells(i, 3)
         Item.SubItems(3) = Format(Plan1.Cells(i, 4), "R$ #,##0.00")
    Next


    'Page Vestuario
    ListView3.ListItems.Clear
    LinhaFinal = Plan2.Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 2 To LinhaFinal
        
        Set Item = ListView3.ListItems.Add(Text:=Plan2.Cells(i, 1))
         Item.SubItems(1) = Plan2.Cells(i, 2)
         Item.SubItems(2) = Plan2.Cells(i, 3)
         Item.SubItems(3) = Format(Plan2.Cells(i, 4), "R$ #,##0.00")
    Next

    'Page Informatica
    ListView5.ListItems.Clear
    LinhaFinal = Plan3.Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 2 To LinhaFinal
        
        Set Item = ListView5.ListItems.Add(Text:=Plan3.Cells(i, 1))
         Item.SubItems(1) = Plan3.Cells(i, 2)
         Item.SubItems(2) = Plan3.Cells(i, 3)
         Item.SubItems(3) = Format(Plan3.Cells(i, 4), "R$ #,##0.00")
    Next
    
End Sub

Mauro,

Muito obrigado pelo retorno, não querendo abusar mas...tem como vc dar uma olhada no arquivo, inclui a codificação para selecionar itens na listview1 e transferir para outra (listview2) funcionou, porém somente funciona para uma listview, as demais que estão nas outras abas transfere todos os itens independente de vc ter selecionado ou não.

Carlos

Carlos, fiz os ajustes necessários da forma que entendi, veja se é isto.

Uma obs,quando usamos "Item(x).Checked", esta propriedade só funciona quando no LIstView está habilitado para as linhas mostrarem os "checbox", quando não são exibidos utilizamos "selected".

qualquer duvida retorne.

[]s