Try erasing these 3 lines:Private Sub CheckForError ...'TODOEnd SubSave, go back to the sheet, and try running it.