worksheet change event only when certain cell changes

Dear all,

I have a spreadsheet in which I need several rows to become hidden, dependent on the value in cell L3 (which is chosen from a drop-down list).
I've been searching here and found several topics on worksheet change events, which helped me to get to the following:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("L3")) Is Nothing Then
    Select Case Target.Value
    Case Is = "PP16", "NGM", "ESX", "ESI", "ESS", "YF"
        Range("24:29,46:51,68:73,90:95, ... etc ").Select
        Selection.EntireRow.Hidden = True
    Case Is = "PP21"
        Range("8:800").Select
        Selection.EntireRow.Hidden = False
        Range("29:29,51:51,73:73,95:95, ... etc").Select
        Selection.EntireRow.Hidden = True
    Case Is = "PY23", "-"
        Range("8:800").Select
        Selection.EntireRow.Hidden = False
    End Select
End If
Range("A8").Select
End Sub

note:in the original code I have in my worksheet, "...etc" is a list running up to row 711. But I didn't want to 'bore' you with he whole list.

This does what I need it to do with one small 'bug': it fires every time any cell in the worksheet is adjusted and I need it to fire only if cell L3 is adjusted.
Haven't been able yet to figure out how to do that , so....any suggestions are very welcome.

Thanks in advance.
Thirsa

I guess you have a drop down items in L3. The code is fired if any values in L3 are changed.

Just a quick thought that occurred to me just now: Could the problem have something to do with the fact that by default, L3 is not empty but set to - ?

As I said, I do indeed have a drop-down in L3 and a change in the selection in this list should trigger the code.
And it does.
But with the code as it is now, so does every other change in every other cell of the worksheet.
And that's annoying (to say the least ) and very impractical, so that's what I'm trying to solve.

This line is the only point which the code could be fired on.

If Not Intersect(Target, Range("L3")) Is Nothing Then

Do you have any other change events code, somewhere in your sheet?

Check all the sheets in the workbook. Do you a code in this workbook?

What is L3 is not empty but set to - ? ?

It looks like I've solved the problem and the cause was not what I expected.

Up to now, when I was making adjustments to the spreadsheet, I did that in the default lay-out, in which all rows are unhidden.
Whenever I typed something in any random cell in the spreadsheet and hit enter, my selection changed to cell A8. So that made me think that the whole code fired.

However, just now I tried the same thing, only with some of the rows hidden. And it turns out that only the cell-selection changed, but the hidden rows did not get unhidden.
So it looks like I simply put

Range("A8").Select

in the wrong place.

I've adjusted my original code to:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("L3")) Is Nothing Then
    Select Case Target.Value
    Case Is = "PP16", "NGM", "ESX", "ESI", "ESS", "YF"
        Range("24:29,46:51,68:73,90:95, ... etc ").Select
        Selection.EntireRow.Hidden = True
        Range("A8").Select 
    Case Is = "PP21"
        Range("8:800").Select
        Selection.EntireRow.Hidden = False
        Range("29:29,51:51,73:73,95:95, ... etc").Select
        Selection.EntireRow.Hidden = True
        Range("A8").Select 
    Case Is = "PY23", "-"
        Range("8:800").Select
        Selection.EntireRow.Hidden = False
        Range("A8").Select 
    End Select
End If
End Sub

And now, when I adjust something in a random cell, nothing else happens.

Thanks again for thinking along.