F
franklin
Similar to my previous question ... is this not possible anymore with Project
2007?
Sub CopyText1()
Dim t As Task
Dim a As Assignment
For Each t In ActiveProject.Tasks
If Not t Is Nothing Then
For Each a In t.Assignments
a.Text1 = t.Text1
'OR alternatively: t.Text1 = a.Text1
Next a
End If
Next t
End Sub
2007?
Sub CopyText1()
Dim t As Task
Dim a As Assignment
For Each t In ActiveProject.Tasks
If Not t Is Nothing Then
For Each a In t.Assignments
a.Text1 = t.Text1
'OR alternatively: t.Text1 = a.Text1
Next a
End If
Next t
End Sub