adding a macro to a cell
Is there any way of changing this code so as to add the macro to more than
one cell? Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ws_exit: Application.EnableEvents = False If Target = Range("$b$5") Then With Target Select Case .Value ' Assumes cell format is General Case Is = 20 Call Macro1 Case Is = 30 Call Macro2 Case Is = 40 Call Macro3 Case Is = 45 Call Macro4 Case Is = 100 Call Macro5 Case Is = 800 Call Macro6 Case Is = 900 Call Macro7 Case Is = 950 Call Macro8 Case Is = 970 Call Macro9 End Select End With End If ws_exit: Application.EnableEvents = True End Sub Thanks |
adding a macro to a cell
Chang
If Target = Range("$b$5") Then to If Not Intersect(Target, Range("B5:K10")) Is Nothing Then -- HTH Bob Phillips (remove nothere from email address if mailing direct) "enyaw" wrote in message ... Is there any way of changing this code so as to add the macro to more than one cell? Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ws_exit: Application.EnableEvents = False If Target = Range("$b$5") Then With Target Select Case .Value ' Assumes cell format is General Case Is = 20 Call Macro1 Case Is = 30 Call Macro2 Case Is = 40 Call Macro3 Case Is = 45 Call Macro4 Case Is = 100 Call Macro5 Case Is = 800 Call Macro6 Case Is = 900 Call Macro7 Case Is = 950 Call Macro8 Case Is = 970 Call Macro9 End Select End With End If ws_exit: Application.EnableEvents = True End Sub Thanks |
All times are GMT +1. The time now is 12:57 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com