Insert this line of code under line: For Cell= 3 to 350
Code:
If Len(ActiveSheet.Cells(Cell, "D")) = 0 Then ActiveSheet.Cells(Cell, "D").Interior.ColorIndex = 2: ActiveSheet.Cells(Cell, "D").Font.ColorIndex = 1
Tip: When you press the close button to run the code and save the workbook, after the code runs, you may choose from the save dialog to cancel closing, so the code runs but the workbook is still open...