Hello,

In my document I have a lot of page (2000)



I want insert (blank pages) every third empty.

So blank page should be in 4,8,12,16 etc

i try with this but it don't work please help.


Sub Insert()
'
' insert

'
'
For i = 3 To 2000
Selection.InsertNewPage
i = i + 4
Next i
End Sub