Ben je het ook beu om een nieuw tabblad in te voegen dat links wordt gezet ?
Met deze listing wordt er een nieuw tabblad rechts toegevoegd.
Sub TabbladRechtsInvoegen()
Dim No_Sheets
No_Sheets = Sheets.Count
Sheets.Add
ActiveSheet.Move After:=Sheets(No_Sheets + 1)
End Sub
Misschien iets voorbij je Persoonlijke werkbalk te zetten?
Pierre
Met deze listing wordt er een nieuw tabblad rechts toegevoegd.
Sub TabbladRechtsInvoegen()
Dim No_Sheets
No_Sheets = Sheets.Count
Sheets.Add
ActiveSheet.Move After:=Sheets(No_Sheets + 1)
End Sub
Misschien iets voorbij je Persoonlijke werkbalk te zetten?
Pierre
Laatst bewerkt: