Sub UpdateResourceCostRate()
Dim Res As Resource
For Each Res In ActiveProject.Resources
If Not Res Is Nothing Then
Res.CostRateTables(“A”).PayRates.Add “06/09/2011”, “$100/h”, “$200/h”, “0”
Res.CostRateTables(“B”).PayRates.Add “06/09/2011”, “$120/h”, “$240/h”, “0”
Res.CostRateTables(“C”).PayRates.Add “06/09/2011”, “$140/h”, “$280/h”, “0”
End If
Next Res
End Sub
Fantastic Thanks!!
You are Welcome 🙂
Wow! It’s wonderful