Rij boven en onder selecteren vanuit VBA code

[tonissteiner]

ik heb volgende werkende code:

Sub ShowOnlySelectedNorms()

Application.ScreenUpdating = False

    Dim Shp As Shape
    For Each Shp In ActiveSheet.Shapes
        If Shp.Name Like "Check Box *" Then
            Shp.Select
            Shp.TopLeftCell.EntireRow.Hidden = Not (Selection.Value = 1)
            Shp.Visible = (Selection.Value = 1)
        End If
    Next
    
End Sub

maar nu zou ik ook nog graag de rij erboven en de twee rijen eronder selecteren en verbergen.

kan dit via een eenvoudige lijn in de code of is het best iets als dit toe te voegen:

Dim myRange As Range

ik geraak er weer niet uit

alvast bedankt

 

[Tent84]

Een mogelijkheid is:

Selection.Offset(-1, 0).EntireRow.Select
Selection.Resize(Selection.Rows.Count + 3, 1).EntireRow.Select

Oftewel de selectie een regel terugschuiven en vervolgens de drie volgende regels erbij voegen.