foutmelding op close

[wim1985]

Ik maak een nacalculatie formulier aan en wil deze ook weer sluiten.
De macro loopt goed tot hij bij .close komt en stopt daar.
Ik zie niet wat ik daar fout doe??

[Sub nacalculatiemaken()
'
' nacalculatiemaken Macro
' De macro is opgenomen op 2-1-2009 door A.Otten.
'

'
Application.CutCopyMode = False
Range("J1").Select
Selection.Copy
Range("K1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K1").Select
Application.CutCopyMode = False

Sheets("formules").Select

Dim sBestandsnaam As String

Application.ScreenUpdating = False

With ActiveSheet
sBestandsnaam = .Range("M1").Value
.Copy
End With


With ActiveSheet
.SaveAs "\\Dirkjan\shareddocs\urenregistratiesysteem\nacalculaties\" & sBestandsnaam
.Close
End With

Application.ScreenUpdating = True

End Sub]

 

[wim1985]

Zie het net, moet natuurlijk workbooks zijn ipv sheets