I actually just figured it out. I needed to put.
If Target = rDNotes Then
Target.CheckSpelling SpellLang:=1033
End If
I am not sure what the SpellLang:=1033 means, but this works exactly how I need it to work. I will have to do further research to know what that does and the other options that I am sure it has.