Thanks Julie. I actually am using Assignment:

Sub CopyResourcesToText2()
Dim r As Resource, A As Assignment
For Each r In ActiveProject.Resources
For Each A In r.Assignments
A.Text2 = A.ResourceName
Next A
Next r
End Sub

I will take your advise and post to the Forum for project customization.