Anyone out there good with macros? I made a small macro that will insert a blank slide after every other slide. This is what it looks like:
Sub insert()
'
' Macro recorded 5/21/2011 by XXXXXXX
'

ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutText).Select
ActivePresentation.Slides.Add(Index:=4, Layout:=ppLayoutText).Select
ActivePresentation.Slides.Add(Index:=6, Layout:=ppLayoutText).Select
ActivePresentation.Slides.Add(Index:=8, Layout:=ppLayoutText).Select
End Sub

Is there a way to modify this macro so that it will do this for 500 slides without having to paste 500 new lines in and change all the numbers manually??

There's got to be a simple line of code that will basically say "after every even number slide, insert blank".

Something like this:
ActivePresentation.Slides.Add(Index:=(after every even number slide), Layout:=ppLayoutText).Select

I'm not a programmer so I have no idea how to accomplish this but I'm sure it's possible.