En deze werkt ook ! Stukje korter zelfs.

Dank !!





"Ron de Bruin" wrote in news:#hFAyuv0DHA.2856
@TK2MSFTNGP09.phx.gbl:

Try this Audio_freak

Sub test()
Application.ScreenUpdating = False
For a = 1 To Worksheets.Count
Sheets(a).Copy
ActiveWorkbook.SaveAs Sheets(1).Name
ActiveWorkbook.Close
Next a
Application.ScreenUpdating = True
End Sub