VB code for showing/hiding the following 20 rows?

[mxoxossg]

I have buttons that show and hide specific sets of rows:

Sub COLCHESTER_HIDE()
'
' COLCHESTER_HIDE Macro
'

'
    Rows("255:274").Select
    Selection.EntireRow.Hidden = True
End Sub

Sub COLCHESTER_SHOW()
'
' COLCHESTER_SHOW Macro
'

'
    Rows("254:275").Select
    Selection.EntireRow.Hidden = False
    Range("A255:B255").Select
End Sub

I have 60 locations to do this for!

Is there any way I can just tell excel to hide/show the next 20 rows rather than having to record each macro individually?

[mccrimmon]

You do not need to select the rows.

This code will do the exact same thing and run quicker.

Rows("254:275").Hidden = False
Rows("276:296").Hidden = True
Rows("297:317").Hidden = False

The above example is if you need to hardcode the row numbers.

If you want it to do the first 20 hidden then the next 20 shown followed by the next 20 hidden then you would need to put these in a loop

[mxoxossg]

I have little no code experience so I am literally recording these macros individually.

Is it going to be possible for me to have one macro (one piece of code) that I can use on every button.

For reference, rows 1, 2, 23, 44, 65, 86, 107 etc etc are the rows that I want shown. I want a button next to each of these rows that shows (and similarly hides, can be in a separate button) the next 20 rows.

edit: p.s. thank you!!!