Private Sub ListBox1_Scroll() ListBox2.TopIndex = ListBox1.TopIndex ListBox2.TopIndex = ListBox1.TopIndex 'etc End Sub