Segue sugestao:
Na page1 selecionando um item no listbox1 o mesmo item do listbox2, tambem é selecionado.

Private Sub ListBox1_Click()
Dim i As Long

    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            ListBox2.Selected(i) = True
        Exit For
        End If
    Next i

End Sub

Dicas:
1- Não uttilize o evento Change do listbox,e sim o Exit, pois nesse caso entra em loop.
2- a Propriedade RowSource deixa o listbox literamente amarrada aos dados da planilha, ai quando que usar a propriedade .Clear, para limpar os dados gera um erro. Quando se usa RowSOurce, ou voce limpa os dados da planilha, ou desvindula o RowSource = "" ai voce pode limpar os dados atraves do clear.

muito obrigado Basole!
não só pela solução da minha questão, mas tmb pelas dicas e orientações que me passou.
shoooow demais amigo!!!
forte abraço.