Hello from Steved

When I insert or delete Rows I have to go and Change
Set myRng = Me.Range("A40:A42") ie "A39:A41" ( I have over 500 off them )

Is it possibel to modify the below so that If I insert or delete I don't
have to change the bottom. Thankyou.

Private Sub CommandButton6_Click()
Dim myRng As Range
Set myRng = Me.Range("A40:A42")
myRng.EntireRow.Hidden = Not (myRng(1).EntireRow.Hidden)
End Sub