Check cell value before printing

[ipbr21054]

Hi,

I would like my code to check for a value in cell N18 before printing.
No value then do not print.
If there is a value then continue to print.

The code in use is shown below.
I leave the cell empty.
I see the msgbox.
I click on OK
Printing then continues.

What did i miss thanks.

Private Sub Print_One_Invoice_Click()


If Range("N18") = "" Then
    MsgBox ("PLEASE SELCT A PAYMENT TYPE "), vbCritical


    Else
    End If
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

 

[MARK858]

Maybe...

    If Range("N18") = "" Then
        MsgBox ("PLEASE SELCT A PAYMENT TYPE "), vbCritical


    Else
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    End If

 

[mumps]

Try:

Private Sub Print_One_Invoice_Click()
    If Range("N18") = "" Then
        MsgBox ("PLEASE SELCT A PAYMENT TYPE "), vbCritical
    Else
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    End If
End Sub

 

[ipbr21054]

Try:

Private Sub Print_One_Invoice_Click()
    If Range("N18") = "" Then
        MsgBox ("PLEASE SELCT A PAYMENT TYPE "), vbCritical
    Else
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    End If
End Sub

This worked for me thanks.

 

[mumps]

You are very welcome. I later noticed it was the same as what MARK858 had suggested.

 

[ipbr21054]

Yes that is true.

Thanks both of you for the input.