This brings up the prompt but cancel doesn't stop the procedure.

Public Sub ClipClear()
Call ClipOff
MsgBox "Are you sure you wish to clear the data?", vbQuestion + vbYesNo + vbDefaultButton2, "Automatic Clipboard"
Sheet10.Range("$C$4") = Null
End Sub