Dupliceren Werkblad

[marcel31281]

Beste Forumleden.

Onderstaande code werkt opzich prima, maar ik zou graag nog dat alle gegevens die ingevuld zijn gewist worden.
En is het mogelijk een popup te krijgen om de naam van het blad in te geven?

Sub Sample()
    Dim test As Worksheet
    Sheets(4).Copy After:=Sheets(Sheets.Count)
    Set test = ActiveSheet
    test.Name = "Kopie"
End Sub

Alvast bedankt,

 

[JEC.]

Bijvoorbeeld

Sub j()
  a = InputBox("Naam nieuwe tabblad?")
  If a = "" Then Exit Sub
  Sheets(1).Copy After:=Sheets(Sheets.Count)
    
    With ActiveSheet
      .Name = a
      .Cells(1).CurrentRegion.Offset(1).ClearContents
    End With
End Sub

 

[marcel31281]

Super Bedankt, dit is helemaal wat ik bedoel