Dates Don't Go To dd-MMM-yyyy

[ajocius]

Can someone from the collective review my code. My spreadsheet has multiple columns that are formated in mm/dd/yyyy and I want dd-MMM-yyyy. None of the columns change. What is wrong with my logic?

'
' Format Columns into dd-MMM-yyyy
ActiveCell.Range("F2:H" & LastRow).Select
Selection.NumberFormat = "[$-409]d-MMM-yyyy;@"
'
ActiveCell.Range("W2:W" & LastRow).Select
Selection.NumberFormat = "[$-409]d-MMM-yyyy;@"
'
ActiveCell.Range("X2:X" & LastRow).Select
Selection.NumberFormat = "[$-409]d-MMM-yyyy;@"
'
ActiveCell.Range("AC2:AC" & LastRow).Select
Selection.NumberFormat = "[$-409]d-MMM-yyyy;@"

I'm running Excel 2010 and Windows XP.