Opgenomen macro's werken niet in een tabel

[SvenK]

Hallo,

door het wijzigen van losse gegevens naar een tabel werkt de volgende code niet meer:

'Datum corrigeren
With WS_ZPAP17
    .Range("tbl_Stock[Completion Date]").Select
    Selection.NumberFormat = "d/mm/yyyy;@"
End With

'Duplicaten verwijderen
With WS_ZPAP17
    Range("tbl_Stock[Shipmentnumber]").Select
    ActiveSheet.Range("tbl_Stock[#Alles]").RemoveDuplicates Columns:=2, Header:=xlYes
End With

'Breedte kolommen corrigeren
With WS_ZPAP17
    .Columns("A:P").Select
    Selection.ColumnWidth = 22
End With

Wat moet ik juist wijzigen om bovenstaande code te gebruiken in een tabel?

Elk van de drie stukjes code geeft dezelfde fout dat de range bepaling niet is toegestaan.
Alvast bedankt,
Sven.

 

[VenA]

Plaats er even een voorbeeldbestandje bij. Als het bij alle drie een foutmelding geeft is er zeker iets met With WS_ZPAP17 aan de hand. Maar ja halve code en geen voorbeeldje geeft alleen maar gokwerk.