Ændret formatering på overførte column fra et Worksheets til et andet

Jeg henter en column fra Worksheets("FraDato") til placering på
Worksheets("TilDato").
På FraDato er formatet Lang med dd-mm-yyyy hh:mm. Jeg skal have dem overført på kort format som dd-mm-yyyy

Jeg har prøvet med linien mærket med <=Fejl men det virker ikke.
Kan i hjælpe


Dim sourceColumn As Range, targetColumn As Range

Set sourceColumn = Worksheets("FraDato").Range ("E2:E190").NumberFormat = "dd-mm-yyyy"
<= Fejl på denne linie ovenfor
   
  Set sourceColumn = Worksheets("FraDato).Range("E2:E190")
  Set targetColumn = Worksheets("TilDato").Range("H6:H190")
  sourceColumn.Copy Destination:=targetColumn