Hjælp til makro!

kan du ikke vise lidt kode.... så vi kan se hvad du har gjort - det gør det lidt nemmere at give dig præcis besked

Det kan jeg først på mandag, da det er på mit arbejde

Her er Makro:
Private Sub DoOpdatere(Alt As Boolean, Slet As Boolean)
  If opti.TestSeddel Then
    i = 0
    rnr = ""
    While i = 0
      rnr = InputBox("Indtast det ønskede receptnr.  Ver: 1.25", "WinOpti Server", rnr)

      If (rnr <> "") Then
        If (opti.FindRecept(rnr)) Then
          ActiveDocument.Variables("Kode") = rnr
          str = opti.ReceptLinie1
          If (str <> "") Then
            ActiveDocument.Variables("Navn") = str
          Else
            ActiveDocument.Variables("Navn") = opti.ReceptNavnBeg
          End If
          If (Slet) Then
            fil = Left$(rnr, Len(rnr) - 2)
            Kill "s:\" + fil + ".nvn"
            Kill "s:\" + fil + ".pos"
            Kill "s:\" + fil + ".prn"
          End If
         
          DoSeddel (Alt)
          i = 1
        Else
          MsgBox ("Recepten '" + rnr + "' findes ikke i kartoteket")
        End If
      Else
        i = 1
      End If
    Wend
  Else
    MsgBox ("Ingen rettigheder til at køre indlægssedler")
  End If
End Sub

ww