code voor verwijderen module1

Status
Niet open voor verdere reacties.
Vereenvoudigde/verbeterde versie:

Code:
Sub tst()
  ThisWorkbook.Sheets.Copy
  ActiveWorkbook.SaveAs "E:\OF\bestand zonder macroos.xls"
  ActiveWorkbook.Close False
End Sub
 
heren bedankt

Heren bedankt weer voor de zet in de goede richting Ik heb uiteindelijk voor Split gekozen en dat werkt zoals ik wil


:thumb::thumb::thumb::):)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan