I am assuming your list boxes are in a sheet and that you created them using
data validation? My code here assumes the list boxes are in cells A1, B1 and
C1. You can modify this for 5 list boxes placed where ever.
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$A$1"
MsgBox Target.Value
Case "$B$1"
MsgBox Target.Value
Case "$C$1"
MsgBox Target.Value
End Select
End Sub
If my assumptions are inccorect then let me know and post your code with the
reply...
HTH