No response so I figured it out myself ...
Private Sub Project_Open(ByVal pj As Project)
Dim t As Task
Dim p As Project
Set p = Application.ActiveProject
If p = "ProcjectName" Then
For Each t In ActiveSelection.Tasks
If t.Text1 = "LOE" Then
UpdateProject False, Now(), pj0to100Percent
>I'm trying to automatically update the percent complete
>the progress bar without having to drag the bar in the
>gantt chart. The values are written in an integrated app
>in MSAccess, but the progress bar doesn't update to the
>value in the %complete column, until a change event
>in project. Does any one know how to update the progress
>complete bar automaticaly?