Private Sub Listbox1_Click()
rows("1:150").Hidden = False
Select Case Listbox1.ListIndex
Case 0
rows("2:3").Hidden = True
case 1
rows(99:105").Hidden = True
case 2
rows("50:55").Hiddent = True
End Select
End Sub

--
Regards,
Tom Ogilvy

"sharkje76" wrote in message
lkaboutsoftware.com...
Hi,

Depending on the choice a user makes in a listbox, I would like to show
some rows with information. Has any of you an idea how to do this?
I succeeded do to this for a checkbox, but with a listbox I come not even
close.

Thanks,
steven