Defaultnaam Workbooks.Add aanpassen

[Conseclusie]

Hallo,

Wanneer je een nieuwe (lege) werkmap aanmaakt krijgt deze automatisch de naam Map1 (of hoger) mee.
Met VBA gaat dit via:

Workbooks.Add

Is het mogelijk om dit nieuwe workbook een zelfgekozen naam te geven?
Let wel: dus zónder het workbook eerst te saven.

 

[Wigi]

Dat gaat niet lukken, voorzover ik weet toch niet.

 

[Excelbat]

Dit is niet de oplossing die je zoekt, maar dit zou een soort 'noodoplossing' kunnen zijn:

Workbooks.Add
 ActiveWorkbook.Windows(1).Caption = Aname

Waarbij in Aname de variabele staat met de naam van het nieuw te benoemen werkboek.

Nogmaals, niet de oplossing die je zoekt.

Greetz/Excelbat

 

[Conseclusie]

Beide bedankt voor jullie reacties.
@Exelbat: is inderdaad niet wat ik zoek; maar toch weer leerzaam.
Uitgaande van Wigi's reputatie op dit forum ga ik er van uit dat dit dan simpelweg niet mogelijk is.

 

[Excelbat]

Als je googelt op workbook add name, dan komen er best wel ideeën tevoorschijn, waar je misschien iets mee kan doen.

Greetz/Excelbat

 

[snb]

Een kwestie van niet de default-sjabloon gebruiken voor het aanmaken van een nieuw werkboek:

Maak een sjabloon met:

Sub M_snb()
    Application.DisplayAlerts = False
    With Workbooks.Add
       .SaveAs "G:\OF\snb.xlsx"
       .Close 0
    End With
End Sub

Maak een nieuw werkboek aan de hand van het nieuwe sjabloon:

Sub M_snb()
     Workbooks.Add "G:\OF\snb.xlsx"
End Sub

en kijk naar de naam van het nieuwe werkboek.

 

[Wigi]

Of misschien is er wel een entry in het register ? Gewoon maar een ideetje.
Ik heb eigenlijk nog nooit die vraag voorbij zien komen, of mezelf de vraag gesteld.