Prohibit Saving an Excel Files if Conditions not Completed

Thanks, i just added

    If Worksheets("Hoja1").Cells(1, i) <> 0 Then

in order to have it with the first sheet.

Thanks a lot