VBA Code not working properly

Vote count:

0

I have the following code that is not working properly.

Private Sub PrintNew_Click()
If Sheets("New").Range("email").Value = 0 Then MsgBox "Email Address Needs    to be Completed", vbInformation
If response = vbCancel Then Exit Sub
If MsgBox("Do you really want to print?", vbOKCancel) = vbOK Then      Sheets("New").PrintOut copies:=1, Collate:=True
Sheets("Disclosure").PrintOut copies:=1, Collate:=True
    If reponse = vbCancel Then Exit Sub
End Sub

It works ok apart from the fact that if I click cancel on the option to print it still prints.

Please advise what needs to be amended.

Thanks in advance of any help. John Davies

asked 37 secs ago

John Davies

17

VBA Code not working properly