Can anyone tell me why this fails

Sub SizeAndFormat(ws As Worksheet)

With ws.Columns("D:D")

.ColumnWidth = 12
.Font.Size = 8
.Style = "Currency" - This Line fails

'other code...

end sub

There is not an error code associated. The code just exits the function and
returns to its' calling point. If I comment out this line, everything else
works.

Any ideas?