How to display a message box if a box is selected
Hello,
I'm trying to have a message box displayed if a box is ticked.
Currently, if the box is ticked is displays text within the word doc-
see code
If Me.chkVisa = True Then
Selection.GoTo What:=wdGoToBookmark, Name:="VisaHeader"
Selection.TypeText "28. Visa Sponsorship"
Selection.GoTo What:=wdGoToBookmark, Name:="VisaText"
Selection.TypeText "As an employee from outside the European Union you will require to have a company sponsored visa before commencing employment. The company will work with an appointed immigration specialist to ensure the correct clearance to work in the United Kingdom."
Selection.GoTo What:=wdGoToBookmark, Name:="VisaText2"
Selection.TypeText "On completion of your probationary period, were you to leave the company within 24 months of your visa start date you will be required to pay back a percentage of the costs associated with obtaining the company sponsorship visa."
End If
I also want it to display a pop up message. I had written something like this but it doesn't work-
Private Sub Messagebox()
If Me.chkVisa = True Then
MsgBox ("Hello")
End If
End Sub
Thanks
Ross
|