Hello from Steved

I've got a problem and that is when I insert a Row My ranges Set myRng =
Me.Range("A10:A10") will not change ie to Set myRng = Me.Range("A11:A11"),

Is their something I can do as now I've got to go and change every range by 1.
I would like to avoid this in other wordswhen I insert a row the range will
change .
Thankyou.

Private Sub CommandButton1_Click()
Dim myRng As Range
Set myRng = Me.Range("A10:A10")
myRng.EntireRow.Hidden = Not (myRng(1).EntireRow.Hidden)
End Sub

Private Sub CommandButton10_Click()
Dim myRng As Range
Set myRng = Me.Range("A63:A64")
myRng.EntireRow.Hidden = Not (myRng(1).EntireRow.Hidden)
End Sub