'This macro clears the task name, resource name and text fields.
'It also resets the project name and title
'Copyright Jack Dahlgren Feb. 2002

Sub scrub()
Dim t As Task
Dim ts As Tasks
Dim r As Resource
Dim rs As Resources
Dim myok As Integer

myok = MsgBox("This will permanently remove tasknames, resource names and notes from your project. Are you sure you want to continue?", 257, "ERASE DATA?")
If myok = 1 Then
Set ts = ActiveProject.Tasks
Set rs = ActiveProject.Resources
For Each r In ActiveProject.Resources
    r.Name = r.UniqueID
    r.Group = ""
    r.Initials = r.UniqueID
Next r

For Each t In ts
    If Not t Is Nothing Then
        t.Name = t.UniqueID
        t.Notes = ""
    End If
Next t

End If
End Sub