Listboxtan Sayfaya aktarmada tarih formatı

[memduh]

Arkadaşlar
Daha önce formdan aldığım aşağıdaki kodla listboxtan sayfaya veri aktarıyorum.
listboxın 5. ci sutununda tarih var. listboxın 5. ci sutunundaki tarihleri aktarırken E sutununa tarih formatında aktarmasını sağlayabilirmiyiz? saygılar.

Sheets("sayfa1").Range("a2:j65536").ClearContents
sat = ListBox1.ListCount
Sheets("sayfa1").Range("a2:j" & sat + 1) = ListBox1.List

 

[Ferhat Pazarçevirdi]

Ekteki örneği inceleyiniz.