Msg Box to clear content error

[SARC777]

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