Here is a macro written by someone before me:
Sub ding1()
'
' Ding Macro
MultiBeep 5
Message
End Sub

Sub MultiBeep(numbeeps)
For counter = 1 To numbeeps
Beep
Next counter
End Sub

Sub Message()
MsgBox "Sorry, I have not been assigned yet!"
End Sub

The macro goes through the process but the dings are not audible. I was
instructed to make this work, but I can't find any information on Beeps or
Dings.