VBA Message box after certain drop down selection made

Hi,

I've got a protected sheet with various unprotected cells some with drop down boxes for users to use.

If the user selects "yes" in D9 (which is a merged cell of D9:J9 if that makes a difference), then I want a message box to appear advising them to complete cells D59, D61 and D63.

I also want to be able to stop the sheet being printed it there is a "Yes" in D9 and cells D59, D61 & D63 are blank.

And finally, I want to be able to stop the sheet being printed if all the drop down boxes aren't chosen - there are multiple ones across the spreadsheet.

Thanks.

This goes in code section for the worksheet which you are referencing:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("D9").Address Then
    If Target = "Yes" Then
        MsgBox ("Don't forget to enter data into D59, D61, and D63")
    End If
End If

End Sub

This goes under ThisWorkbook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim ws As Worksheet:    Set ws = Sheets("Sheet1") 'you may need to change this

If ws.Range("D9").Value = "Yes" Then
    If Application.WorksheetFunction.CountA(ws.Range("D59"), ws.Range("D61"), ws.Range("D63")) < 3 Then
        Cancel = True
    End If
End If

'not chosen
If ws.Range("D9").Value = "" Then
    Cancel = True
End If

End Sub

And finally, I want to be able to stop the sheet being printed if all the drop down boxes aren't chosen - there are multiple ones across the spreadsheet.

I am not going to guess as to the cell location for these drop down boxes. Expand the code I supplied to answer this question on your own.