You can not have a Change2. That is not recognized event code... Try
something like this...

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$L$72", "$L$100"
If IsEmpty(Target) Then Target = "Intel Celeron at 700MHz - $500"
Case "$L$73"
If IsEmpty(Target) Then Target = "32KB - $100"
Case "$A$1", "$A$10"
MsgBox "Tada"
End Select

If Not Intersect(Target, Range("B1:B100")) Is Nothing Then MsgBox "B Stuff"

End Sub

--
HTH...

Jim Thomlinson


" wrote:

Hello,

I have a code that works perfect for what I am trying to do, but I
don't know how to make it work for more than one field. The
Worksheet_Change part works but Worksheet_Change2 doesn't seem to do
anything.

In the sheet portion of the visual basic I have the following code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$L$72" Then
If IsEmpty(Target) Then Target = "Intel Celeron at 700MHz - $500"
End If
End Sub

Private Sub Worksheet_Change2(ByVal Target As Range)
If Target.Address = "$L$73" Then
If IsEmpty(Target) Then Target = "32KB - $100"
End If
End Sub


Why doesn't the second part work? Is this code just in bad form?

Thanks for your help!

Sean