Sub CopyTaskFieldToAssignment()
'This macro copies information in the task text5 field
'into the assignment text5 field so that is can
'be displayed in a usage view or in a report.
'Modify the line noted below to fit your needs

'Copyright Jack Dahlgren, Feb. 2002

Dim t As Task
Dim ts As Tasks
Dim A As Assignment
Set ts = ActiveProject.Tasks
For Each t In ts
    If Not t Is Nothing Then
        For Each A In t.Assignments
            'change the following line to use
            'for a different custom field
            A.Text5 = t.Text5
        Next A
    End If
Next t
End Sub