What you see in the Resource usage view is not tasks - it is assignments. So, you'd need to loop through each assignment (not task) and write the data. I am not a coder, so my suggestion is to post your question (including what release of project you are working with) to the Forum for project customization:

http://social.technet.microsoft.com/...ct2010custprog

If you do post there, if you could post back to this thread with the thread url from the TechNet forum - that would be very helpful.

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.