How to trigger code from a dropdown box ?

[aresquare1]

I have a cell in a worksheet (in Excel 2013) that contains a dropdown box. I want to run 3 different strings of code depending on which of the 3 dropdown choices the user picks. The code below is a portion of what I'd run if the user picks Option 2. How do I change this to get it to run after they choose Option 2 then enter?

Thanks for your help.
RR
-------------------------------
Sub Macro2()
'
' Macro2 Macro
'Set Column Widths for Option 2
Application.ScreenUpdating = False

Range("C1").Select
Selection.ColumnWidth = 13
Range("D1").Select
Selection.ColumnWidth = 13

End Sub

[Mumps1]

You can do this using a Worksheet Change event. Copy and paste this macro into the worksheet code module. Do the following: right click the tab for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet, make your selection in your drop down and exit the cell. This macro assumes that your drop down is in A1. You will have to change that to suit your needs. Also, this will only take into account one option which is "Option 2". If you want to include the other two options, then they would have to be added to the code.

Please Login or Register  to view this content.

[walruseggman]

Change the "$A$1" to whatever cell the dropdown is in (keep the dollar signs), and change "Option 2" to whatever the text actually say.

You can see, too, that I changed your code a bit. You don't need to be selecting cells. Just modify them directly.

Please Login or Register  to view this content.

[JOHN H. DAVIS]

Per Forum Rules, please use code tags when posting.

http://www.excelforum.com/forum-rule...rum-rules.html

Maybe one of these may help?

Please Login or Register  to view this content.

Or

Please Login or Register  to view this content.

[aresquare1]

I'm still having problems with this code since I'm new to VBA. The code below gives me a Run-time error '1004': that says "Unable to set the ColumnWidth property of the Range class". The error occurs on the line "Selection.ColumnWIdth = 13". How do I correct this problem?

Thanks for your help.
RR

Please Login or Register  to view this content.