message box

[thedeadzeds]

Guys,

I have this code and it works fine but Is there a wasy to change it to show

If d6 = "Assistance" then message box to show "J6 must be completed"
If d8 = "Assistance" then message box to show "J8 must be completed"
If d10 = "Assistance" then message box to show "J10 must be completed"
If d12 = "Assistance" then message box to show "J12 must be completed"
If d14 = "Assistance" then message box to show "J14 must be completed"



and so on and so on

Thanks
Craig


Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 
If Worksheets("sheet1").Range("D6").Value = "OK" Then
Exit Sub
Else
MsgBox ("You need to complete the task box")
End If
 
End Sub

[Catalin.B]

This one is for Excel Programming forum.
Anyway, you can try this:

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