ClearFormats method deletes the formatting in the range but not the cell contents.
Sub format() Columns("D:D").ClearFormats End Sub