Private Sub ListBox1_Change() Label1.Caption = ListBox1.Value Label2.Caption = Cells(ListBox1.ListIndex + 2, 2) End Sub