Makro til formatering af dato

Hej,

Jeg har en makro som indsætter datoen i kolonne nr 9 (kolonne i) når den pågældende række redigeres:

Private Sub Worksheet_Change(ByVal Target As Range)
  Cells(Target.Row, 9) = Date
End Sub

Men den indsætter datoen som 14-04-2004 hvor jeg gerne vil have den til at stå som 040414 altså ååmmdd. Det duer ikke med at formatere cellerne da der står dato i cellerne i forvejen i formatet ååmmdd (og sætter man formatering på, så hedder datoen lige pludselig 06-02-4611 (pga den måde som Excel opfatter tal vs. dato).

Nogen der lige ved hvordan man formaterer Date til ååmmdd?