Msg Box to clear content error

I cant get this code to work.. can someone help me..

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Worksheets("Formulation")
If .Range("d3") <> "" _
Or .Range("d5") <> "" _
Or .Range("d6") <> "" Then
MsgBox ("Please delete content in Formula No, Batch No & QTY")
End If

End Sub

You're missing the End With post End If ... I suspect you also want to add a Cancel = True post MsgBox but prior to the End If.