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