Dim oRanges As Object
Set oRanges = CreateObject("Tracker.TrkRanges")
oRanges.ProjectID = "PA1"
oRanges.Refresh
...