Help with VBA stuff. Range list causing "skip" in cursor to end of cell range

Hi All,

Not sure if I'm in the right spot or not and I'm not too familiar with Excel VBA Stuff (self taught) but created a worksheet where I can "hide/show" rows based on a Yes/No Dropdown list that I have entered in a cell. I have this set up for 7 different areas on Sheet1. The locations are all over the place, one is in J4, one in J21, one in F60 etc as an example. All works just fine however, when I select any of the dropdowns that are part of the cell range in the code the cursor "skips" to the last cell that I have listed in the Range I have in my VBA code. IE: Code is as follows. Set KeyCells = Range("J4,J21,J31,J40,J53,F60,F68"), again all works well, but when I select Cell J4 the cursor moves down to the last cell in my range (F68), if I then scroll back up to J21 and select it, it then too moves the cursor back to F68 and I have to scroll back up to the area of the page I want to work on and so on...
Hope that makes sense.

What I need help with is finding a way to have the cursor NOT go to F68 each time I select a cell in the range. Ideally I would love it to move it to a specific cell but even if it just "moves to the next active cell" that would be better than what is happening right now.

Any insights would be appreciated. Thanks.

Thanks for the quick response AlphaFrog. Appreciate it.

Here is the code (hopefully I added it correctly, it's a bit of a long one, probably a shorter way to do it but it "works" so to speak). Thanks again.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim KeyCells As Range

    Set KeyCells = Range("J4,J21,J31,J40,J53,F60,F68")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
        Is Nothing Then

        If Range("J4") = "Yes" Then
            Rows("6:18").Select
            Selection.EntireRow.Hidden = False
            Range("J4").Select
        End If
        If Range("J4") = "No" Or Range("J4") = "Select One" Then
            Rows("6:18").Select
            Selection.EntireRow.Hidden = True
            Range("J4").Select
       End If
       If Range("J21") = "Yes" Then
            Rows("23:28").Select
            Selection.EntireRow.Hidden = False
            Range("J21").Select
       End If
       If Range("J21") = "No" Or Range("J21") = "Select One" Then
            Rows("23:28").Select
            Selection.EntireRow.Hidden = True
            Range("J21").Select
       End If
       If Range("J31") = "Yes" Then
            Rows("33:37").Select
            Selection.EntireRow.Hidden = False
            Range("J31").Select
       End If
       If Range("J31") = "No" Or Range("J31") = "Select One" Then
            Rows("33:37").Select
            Selection.EntireRow.Hidden = True
            Range("J31").Select
       End If
       If Range("J40") = "Yes" Then
            Rows("42:50").Select
            Selection.EntireRow.Hidden = False
            Range("J40").Select
       End If
       If Range("J40") = "No" Or Range("J40") = "Select One" Then
            Rows("42:50").Select
            Selection.EntireRow.Hidden = True
            Range("J40").Select
       End If
       
       If Range("J53") = "Ok" Then
            Rows("55:76").Select
            Selection.EntireRow.Hidden = False
            Range("J53").Select
                      
       End If
       If Range("J53") = "Select Ok" Then
            Rows("55:76").Select
            Selection.EntireRow.Hidden = True
            Range("J53").Select
       End If
       If Range("F60") = "Yes" Then
            Rows("61:66").Select
            Selection.EntireRow.Hidden = False
            Range("F60").Select
       End If
       If Range("F60") = "No" Or Range("F60") = "Select One" Then
            Rows("61:66").Select
            Selection.EntireRow.Hidden = True
            Range("F60").Select
       End If
       If Range("F68") = "Yes" Then
            Rows("69:73").Select
            Selection.EntireRow.Hidden = False
            Range("F60").Select
       End If
       If Range("F68") = "No" Or Range("F68") = "Select One" Then
            Rows("69:73").Select
            Selection.EntireRow.Hidden = True
            Range("F68").Select
       End If
       
    End If

    
End Sub

Perfect, thanks PCI, that worked.

Appreciate it.