macro går iså

Jeg har flg. macro

Sub WordNat()

Dim y As Word.Application
Set y = CreateObject("Word.application")
With y
.Visible = True
.documents.Open Filename:="C:\logfiler\rapporter\test.doc"
Worksheets("dataark").Range("b11:g200").Copy
.Selection.Paste
filnavn = Worksheets("dataark").Range("A11").Value
ActiveDocument.SaveAs Filename:="c:\logfiler\Nat " & filnavn & ".doc"
ActiveDocument.Close
Application.CutCopyMode = False
y.Quit
Set y = Nothing
End With
End Sub


den virker fint første gang jeg kører den anden gang skal den debugges med VBA
Hvis jeg i VBA kører en run og derefter en reset er der ingen problem.
er der en med falkeblik der kan se hvad problemet kan være.
Er det muligt at indsætte en "auroreset" i enden af macroen?
pft
Peter