Required fields in a form

[NFournier]

Hello,

I'm trying to create a form that cannot be printed unless certain fields are filled in (A1, B19 & B45).

Been using VBA and found this online:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Sheets("Cover Sheet").Range("A1,B19,B45").Value = "" Then
Cancel = True
MsgBox ("Please complete all required fields prior to printing.")
End If
End Sub

If works, however it only works if A1 is not filled in.

Any help you can provide would be greatly appreciated.

Thank you.

 

[mikerickson]

With Sheets("Cover Sheet")
    If (.Range("A1").Value = vbNullString) or  (.Range("B19").Value = vbNullString) or (.Range("B45").Value = vbNullString) Then

 

[NFournier]

Thank you for the quick reply.

What I have now is:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Sheets("Cover Sheet")
If (.Range("A1").Value = vbNullString) Or (.Range("B19").Value = vbNullString) Or (.Range("B45").Value = vbNullString) Then
Cancel = True
MsgBox ("Please complete all required fields prior to printing.")
End If
End Sub

I'm getting an error message now stating that:

Compile Error:
Expected End With

Sorry I am very new to VBA so I'm still trying to figure all this out...

 

[NFournier]

I see what I did. I was missing an End With.

Working now. Thank you.