My apologies. Many thanks for your help. I have attached an example workbook. Here is the tagged code:
![]()
Private Sub workbook_Open() Sheet1.ListBoxFacilities.Clear With Sheet1.ListBoxFacilities .AddItem "ANW Programs and Instititutes" .AddItem "Buffalo Programs and Instititutes" .AddItem "Mercy Programs and Instititutes" .AddItem "United Programs and Instititutes" End With End Sub
![]()
Private Sub ListBoxFacilities_Click() Sheets("Institutes").Select With Sheets("Institutes").ListBoxPrograms .Clear Select Case Range("Facility").Text Case Is = "ANW Programs and Institutes" .AddItem "Bariatric Center" .AddItem "Courage Institute" .AddItem "Oxygen Center" .AddItem "Infusion Center" Case Is = "Buffalo Programs and Institutes" .AddItem "Kidney Program" .AddItem "Smoking Cessation" Case Is = "Mercy Programs and Institutes" .AddItem "Mercy Center" .AddItem "Rehabilitation Institute" .AddItem "Hyperbaric Oxygen Center" Case Is = "United Programs and Institutes" .AddItem "United Center" .AddItem "Infusion Center" .AddItem "Insomnia and Behavioral Sleep Medicine" .AddItem "LiveWell Fitness Center" .AddItem "Lung Nodule Clinic" End With End Sub
Bookmarks