Excel VisualBasic Script

Sub format()
    Columns("D:D").ClearFormats
End Sub