Nieuwe workbook met een sheet

[wpayanda]

Kan ieman mij vertellen hoe ik een nieuwe workbook kan aanmaken met maar 1 sheet! ik gebruik nu de volgende code:

Sub newworkbook()

    Cells.Select
    Selection.Cut
    Workbook.Add
    ActiveSheet.Paste
    Sheets("Sheet2").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Sheet3").Select
    ActiveWindow.SelectedSheets.Delete
    Range("A2").Select
End Sub

maar bij het verwijderen van de sheets moet ik het eerst bevestigen. is er een makkelijkere manier om dat te doen?

 

[wpayanda]

dat is me gelukt

Sub newworkbook()

    Cells.Select
    Selection.Cut
    Workbooks.Add
    ActiveSheet.Paste
   With Application
        .UserName = ""
        .StandardFont = "Arial"
        .StandardFontSize = "10"
        .DefaultFilePath = "U:\user"
        .SheetsInNewWorkbook = 1
        .EnableSound = False
        .RollZoom = False
    End With
End Sub

maar weet iemand hoe ik de nieuwe workbook kan opslaan op een door mij gekozen map en met een naam die de datum van die dag weergeeft?

 

[Wigi]

maar weet iemand hoe ik de nieuwe workbook kan opslaan op een door mij gekozen map en met een naam die de datum van die dag weergeeft?

Zoek eens op het forum, dat komt verschillende keren per week voor hier.

Zoek op SaveAs.