Date Format wrong when Transfering From Array To Range

[drom]

Hi and thanks in advance!



This Macro is just for this eg, but the macro shows my problem

Sub AAAa()
Dim aDates(1 To 3)
'The Formatting of the selection is = [$-en-GB]dd/mmm/aaaa;@
  aDates(1) = Selection.Cells(1)      '= "01/11/2018"     = 01/Nov/2018
  aDates(2) = Selection.Cells(2)      '= "23/11/2018"     = 23/Nov/2018
  aDates(3) = Selection.Cells(3)      '= "05-04/2019"     = 05/Apr/2019
'The Formatting of the "L1:L3" is = [$-en-GB]dd/mmm/aaaa;@
Range("L1:L3") = Application.WorksheetFunction.Transpose(aDates)
'L1:L3 shows:
  'L1 = 11/Jan/2018
  'L2 = 23/11/2018
  'L3 = 04/May/2019
End Sub

How Can I solve this?

This Macro is just a draft of a huge macro I am using this is why I have decided to show just the problem briefly

ps:
Please I do know I can use:

• range("L1")= Selection.Cells(1)

• range("L2")= Selection.Cells(2)

• range("L3")= Selection.Cells(3)

But this is not my question, I am trying to learn whats going on when transfering from array to range
and:

How can I solve this? Thanks again

 

[drom]

The problem comes when using:
Application.WorksheetFunction.Transpose(aDates)
If I do create a second array to avoid Application.WorksheetFunction.Transpose the macro will work