Private Sub ListBox1_Click()
With ListBox2
.TopIndex = ListBox1.TopIndex
.ListIndex = ListBox1.ListIndex
End With
End Sub
Private Sub ListBox2_Click()
With ListBox1
.TopIndex = ListBox2.TopIndex
.ListIndex = ListBox2.ListIndex
End With
End Sub