Vb Code Unhide rows

[ateebali]

Dear Sir,
I am using following code to add rows from A5:A498
It add rows in a way like, It unhide Row: A9:10, then A13:14
A11:A12 keep hidden, same way it goes all the way to A498

Sub addrow()   Dim Ar As Areas
   Set Ar = Range("A5:A498").SpecialCells(xlVisible).Areas
   Ar(Ar.Count).Offset(4).Resize(2).EntireRow.Hidden = False
End Sub

Now I need a code when I play it, it should unhide all the rows from A5:A498 in same pattern like;
A5:A6 = Unhide
A9:10 = Unhide
A13:14 = Unhide
All the way to A498 should be unhide in same pattern and in between rows should be keep hidden

 

[footoo]

Dim rng As Range, r%
[A5:A498].EntireRow.Hidden = True
Set rng = [A5:A6]
For r = 9 To 498 Step 4
    Set rng = Union(rng, Cells(r, 1).Resize(2))
Next
rng.EntireRow.Hidden = False

 

[bobsan42]

Try this:

Sub addrow()   Dim Ar As Areas
   Set Ar = Range("A5")
do until ar.row >498
   Ar.Resize(2).EntireRow.Hidden = False
   Ar.offset(2).Resize(2).EntireRow.Hidden = true
  set ar=ar.offset(4)
loop
Range("A499:A500").EntireRow.Hidden = False
End Sub

 

[ateebali]

Thanks a lot, worked fine

 

[ateebali]

Both codes worked fine
thanks both