Tabblad excel format / vba

[Marky76]

Beste,

Met deze macro geeft hij aan het werkblad de datum. Maar als ik nu al de datum van de volgende dat wil hoe moet ik de code dan aanpassen?

Sub Nieuwwerkblad2()

Dim ws As Worksheet
    
    ActiveSheet.Copy before:=Sheets(4)
    Set ws = Sheets(1)
    With ws
        .Name = Format(Date, "dd-mm-yy")
        .Activate
    End With
    Wissenbanken
    End Sub

Met vriendelijke groeten,
Mark

 

[Relleboer]

Sub Nieuwwerkblad2()

Dim ws As Worksheet
    
    ActiveSheet.Copy before:=Sheets(4)
    Set ws = Sheets(1)
    With ws
       .Name = Format(Date [COLOR="Red"]+ 1[/COLOR], "dd-mm-yy")
    .Activate
    End With
    Wissenbanken
    End Sub

zo krijg je de dag eentje later

 

[Marky76]

Hey,

Bedankt, werkt.

Groeten,
Mark