Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)  Dim i As Integer
 With Worksheets("sheet1")
         For i = 6 To 14 Step 2
            If Cells(i, "D") = "Assistance" Then _
               MsgBox ("You need to complete cell J" & i)
            Next
 End With 
End Sub