6.85 How to delete all input cells?

link

make sure to copy the notebook first, just in case.

Module[{nb}, 
 nb = EvaluationNotebook[]; 
 NotebookFind[EvaluationNotebook[], "Input", All, CellStyle]; 
 NotebookDelete[nb]]