Multiple Worksheet Change Events

[justinharris]

Hello All,
I have an estimating sheet (portion attached) that I have been working on and I have hit a block. I have a worksheet change event that clears the data in cells B25:29,B32:33, and L3:21 when the option 'Standard' is selected in cell B3 from a drop down list. I used the following code to make this happen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
If Target.Value = "Standard" Then
Range("B25:B29").Select
    Selection.ClearContents
Range("B32:B33").Select
    Selection.ClearContents
Range("L2:L21").Select
    Selection.ClearContents
Range("B3").Select

End If
End If
End Sub

As you can see, there are three other "phases" that are just like phase 1 (directly below), where the macro runs. I want it to do the same thing in each of the other three phases, but can't seem to get it. I run into only being able to run one worksheet change event and can't figure out how to nest them. Any help would be appreciated.

[protonLeah]

Private Sub Worksheet_Change(ByVal Target As Range)

    Select Case Target.Address(0, 0)
        Case Is = "B3"
            Select Case Target.Value
                Case Is = "Standard"
                    Range("B25:B29, B32:B33, L2:L21").Select
                    Selection.ClearContents
                    Range("B3").Select
                Case Is = "24 Hour"
                    'do something
            End Select 'B3
        Case Is = "Next test cell"
           ' etc
    End Select
End Sub

[justinharris]

Thanks protonLeah, it seems to be working great!