'   Select a recurring task,
'   Enter the period of recurrance in calendar days
'   Click OK and the instances of this task will be
'   set to recur at the period you have specified.
'   Copyright Jack Dahlgren, May 22, 2003
'   Do not redistribute without Author's Permission
'   No guarantee of performance or suitability for any purpose
'   Use only on files which have been backed up

Sub SetRecurringTasks()
Dim t, one As Task
Dim ts As Tasks
Dim HowOften As String
Dim oStart As Date
Set t = ActiveSelection.Tasks(1)
Set ts = t.OutlineChildren
HowOften = InputBox("Please enter how often you want this to occur _
	 (use days as units)", "Enter Frequency")
oStart = t.Start
For Each one In ts
one.Start = oStart
oStart = oStart + HowOften
Next one
End Sub