CostRateTables Object (Project)

Office 2013 and later

Contribute to this content

Use GitHub to suggest and submit changes. See our guidelines for contributing to VBA documentation.

Contains a collection of CostRateTable objects.

Using the CostRateTables Collection

Use the CostRateTables property to return a CostRateTables collection. The following example lists the standard pay rates for all the cost rate tables of the resource in the active cell.

Dim CRT As CostRateTable, PR As PayRate 

Dim Rates As String 


For Each CRT In ActiveCell.Resource.CostRateTables 

 For Each PR In CRT.PayRates 

 Rates = Rates & "CostRateTable " & CRT.Name & ": " & PR.StandardRate & vbCrLf 

 Next PR 

Next CRT 


MsgBox Rates