WD97: How to Keep OnEntry Macro from Running at Document Open

   Sub OnEntry()

      Dim sOpenStatus As String
      ' An error occurs the first time this macro is
      ' run because the document variable does not yet exist,
      ' so we just resume to the next line (the If...Then...Else
      ' statement).
      On Error Resume Next

      ' Get the value of the document variable DocOpen,
      ' and put the value into the string variable sOpenStatus.
      sOpenStatus = ActiveDocument.Variables("DocOpen")

      If sOpenStatus = "" Then

         ' On the first run of this macro, the value of
         ' sOpenStatus will be Null because it does not
         ' yet exist, so we create the document variable and
         ' set the value to "Already Open."
         ActiveDocument.Variables.Add Name:="DocOpen", _
            Value:="Already Open"

      ElseIf sOpenStatus = "Just Opened" Then

         ' If the value of the document variable equals "Just Opened,"
         ' do not run the other code section of this macro
         ' and make the document variable equal "Already Open."
         ActiveDocument.Variables("DocOpen").Value = "Already Open"

      Else

         ' Other code section runs ONLY if the variable
         ' sOpenStatus equals "Already Open." Place your
         ' code here that you want to run only when the
         ' form field is tabbed to or clicked on.

         '<<< Your OnEntry Code Goes Here >>>

      End If

   End Sub