ComboBox & Worksheet_Change

[Vytfla]

I'm trying to make a combobox with a few names; when the user chooses any of the names, designated cells will display info corresponding to the appropriate names. Here is my workbook

Private Sub Worksheet_Change(ByVal Sh As Object, ByVal Target As Range)
    If Target.Address = ("$L$32") Then
        Select Case Target.Text
            Case "John"
                Range("L34").Value = "02081252121"
                Range("L35").Value = "SR5 6HY"
            Case "Frank"
                Range("L34").Value = "07854565252"
                Range("L35").Value = "HA5 6TY"
            Case "Jamie"
                Range("L34").Value = "03263659898"
                Range("L35").Value = "NW5 6YT"
        End Select
    End If
End Sub

It's not working, and I'm not sure why. For cell L32, I created the combobox by going to the Data tab>data validation, then under the Settings tab changing the critera to 'List', then manually entering all the names I want in the source box.

 

[pbornemeier]

When I changed the Sub declaration line to this it worked.

Private Sub Worksheet_Change(ByVal Target As Range)

 

[Vytfla]

When I changed the Sub declaration line to this it worked.

Private Sub Worksheet_Change(ByVal Target As Range)

Really? Your values change? Mine still isn't doing anything.

 

[Vytfla]

Got it, thanks!