TimeScaleValue

I am trying to add hours worked to an assignment.

I copied and pasted the following code directly from the Help file:

Dim TSV As TimeScaleValues

Set TSV = ActiveCell.Resource.TimeScaleData("10/7/02", "10/11/02",
TimescaleUnit:=pjTimescaleDays)
TSV.Add 480, 2
Dim TSV As TimeScaleValues

Set TSV = ActiveCell.Resource.TimeScaleData("10/7/02", "10/11/02",
TimescaleUnit:=pjTimescaleDays)
TSV.Add 480, 2

When I run the code I get Run-time error 1101: The argument is not valid.

Can anyone tell...

Read more