Sub AddMyText()
'This macro appends text you enter onto the name of all selected tasks.
'It is useful if you are reusing sections of your schedule and want
'to rename them (ie: append something like "Phase 2" on all of them.
'Copyright Jack Dahlgren, Feb 2002
Dim newstuff As String
Dim t As Task
newstuff = InputBox("Enter text to add - no leading space needed, leave blank to quit")
If newstuff = "" Then Exit Sub
For Each t In ActiveSelection.Tasks
t.Name = t.Name & " " & newstuff
Next t
End Sub