Formatterings spørgsmål

Har denne kode der sætte felter til bestemt format.

Cells(i, 8) = MonthName(Month(Cells(i, 4))) + " " + Format(Cells(i, 4), "YYYY")
Cells(i, 8).Select
Selection.NumberFormat = "[$-406]mmmm yyyy;@"

Problemet er dog at ikke alle felter "ender" med dette format. Halvdelen står som eks. 01-01-2008 og resten som januar 2008???

hvordan sikrer jeg at alle ender med det SAMME format??