VB to strip carriage returns from cells in an Excel file

Sub CleanUp()
Dim TheCell As Range
For Each TheCell In ActiveSheet.UsedRange
   With TheCell
   If .HasFormula = False Then
       .Value = Application.WorksheetFunction.Clean(.Value)
   End If
   End With
Next TheCell
End Sub

Burn a CD from cue/bin files on the command line

cdrdao write --driver generic-mmc --device 1,2,0 --speed 12 file.cue