Resources and timescaled date

[Jeff]

I have taken out data using the timescale data routine posted on the web. I
would like to be able to get Reources and their utilization/booked effort by
month over the life of the project. What do I need to do to in order to get
this data I'm currently using the following
==============================================
For Each Tsv In ActiveProject.ProjectSummaryTask.TimeScaleData( _
StartDate:=ActiveProject.ProjectStart, _
EndDate:=ActiveProject.ProjectFinish, _
Type:=pjAssignmentTimescaledWork, _
timescaleunit:=pjTimescaleMonths, _
Count:=1)
xlRng = Tsv.StartDate
Set xlRng = xlRng.Offset(0, 1)
colctr = colctr + 1
Next
Set xlRng = xlRng.Offset(1, -(colctr + 1))
For Each T In ActiveProject.Tasks
If Not T Is Nothing And T.Summary = False And T.Milestone = False Then
If T.PercentComplete <> 0 And T.Work <> 0 And T.Work <> 0 Then
First = T.Start
Last = T.Finish
Yr = Year(T.Start)
mo = Month(T.Start)
xlRng = T.Name
Set xlRng = xlRng.Offset(0, 1)
Set taskhrs = T.TimeScaleData(First, Last, _

Type:=pjTaskTimescaleActualWork, timescaleunit:=pjTimescaleMonths)