Using a macro to add code to a newly created workbook.

sub snb()
activeworkbook.vbproject.vbcomponents(1).codemodule.AddFromText replace(replace("Option Explicit||Private Declare Function sndPlaySound32 Lib ~winmm.dll~ Alias ~sndPlaySoundA~ (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long||Private Sub Worksheet_Change(ByVal Target As Range)|Dim Cell As Range||If Not Intersect(Target, Range(~B:B~)) Is Nothing Then|For Each Cell In Intersect(Target, Range(~B:B~))|If Range(~D~ & Cell.Row) = ~NOPE~ Then|sndPlaySound32(~C:\windows\media\notify.wav~, 1)|Exit Sub|End If|Next Cell|End If||End Sub","~",chr(34)),"|",vbCrLf)
End Sub