So you use a combobox / listbox with linked cell as "E4" ?

You can put the code in the combobox_change event.

In designed mode, double click on the combobox and it will take you to
the combobox_change event procedure.
Write your code in this event procedure.

Private Sub ComboBox1_Change()
Dim userOption as string
userOption = Worksheets("name_of_the_sheet_here").Range("E4").V alue

If userOption = "FAS"
'.. and so on, your code.
End Sub

Sharad


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!