Thanks Mark.
It good solving the problem for project, but my code not work correctly. What's wrong?
Public Sub ChangeLimitStatus()
For i = 1 To 2
Status = thisProject.Variables.Item("limitstatus[" & i & "]").Value
Tagname = thisProject.Variables.Item("limitstatus[" & i & "]").Tagname
If Status = 0 Then
thisProject.Variables.Item("" & Tagname).StatusString = "REV = 1"
ElseIf Status = 1 Then
thisProject.Variables.Item("" & Tagname).StatusString = "REV = 0"
End If
MsgBox (thisProject.Variables.Item("" & Tagname).StatusString)
Next i
End Sub