Tabel binnen werkblad wegschrijven naar nieuw werkblad

[Bvn]

Ik heb een klein puntje waar ik niet uit kom. Ik wil een tabel kunnen wegschrijven naar een nieuw werkblad. Ik krijg het alleen niet voor elkaar om de tabel te kopieren op zowel waardes, als kolombreedtes als opmaak.

Dit is de code die ik nu heb:

Sub Tabel_wegschrijven()

Sheets("Invulformulier").Select
Range("A14:U27").Select
Selection.Copy
Sheets.Add
With ActiveSheet
.Name = Sheets("Invulformulier").Range("A14").Value
    Selection.PasteSpecial Paste:=xlFormats, Paste:=xlColumnWidths, Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
End With
End Sub

Hij heeft als foutmelding dat ik een onjuist aantal argumenten of ongeldige eigenschappentoewijzing heb. Als iemand kan helpen, alvast bedankt!

Groeten!

 

[stefanz]

Visual basic ?