Selecting A Cell Needs To Displays A Message Box

[whatsmyname]

Hello all,

I am trying to have a message box automatically pop up when a cell is selected. In the message box there should be a question with a yes and no button. If no is selected then it would automatically select another cell. If yes is selected then it would allow the user to go ahead and enter data into that cell. Basically I want to lock that cell from having data typed into it unless the user selects yes.

It would also be nice to if I could have this same message box if they click the print button.

I am still learning but this is my attempt at this:

Sub dateQs()


If range("M9").Select Then

MsgBox("Have You Finished Filling Out The Entire WorkOrder?", vbYesNo) = vbNo


Else: MsgBox("Please Complete Filling Out The WorkOrder!", vbYesNo) = vbYes

End If



End Sub

Your help is greatly appreciated, thank you!