Hide rows

[ExcelRoy]

Hi,

Not sure if this is a quick fix, but is it possible to have code do the following

hide every row from 9 : 46055 but leave the following unhidden

315
622
929
1236
(every 307 rows thereafter)

Many thanks

 

[Fluff]

How about

Sub ExcelRoy()
   Dim Rw As Long
   Range("9:46055").EntireRow.Hidden = True
   For Rw = 315 To 46055 Step 307
      Rows(Rw).Hidden = False
   Next Rw
End Sub

 

[ExcelRoy]

Perfect thanks Fluff

 

[Fluff]

You're welcome & thanks for the feedback.