Date converts to 1900

[Takes2ToTango]

Hi all,

Not sure if this question has been asked before.

I am currently trying to run a function where i copy and paste columns into a new sheet - including dates. However, when dates get pasted they automatically paste in as '05/01/1900'. Is there any way around this? I have added my code below.

I have checked the format and they are both 'date' formats.

ws.ListObjects("Table1").ListColumns(3).DataBodyRange.Copy
 wsasn.Range("G2").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

 

[Takes2ToTango]

[SOLVED] Own error

 

[Fluff]

Good to hear you got the solution.
If you would like to post the solution then it is perfectly fine to mark your post as the solution to help future readers. Otherwise, please do not mark a post that doesn't contain a solution.