Sub test3()
Dim i&, T As Variant, P As Variant
With Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
P = .Value
For i = LBound(P) To UBound(P)
T = Split(Split(P(i, 1))(1), ".")
P(i, 1) = DateSerial(2011, T(1), T(0))
Next i
.ClearContents
.NumberFormat = "dddd dd mmmm yyyy"
.Value = P
End With
End Sub