【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2019
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

ちょっと頭のおかしい感じにしてみたんですけど、どうでしょう?

Sub 猿()
　'@@@@@@@@@@@@@@@@@@
　Dim 日本脳炎, 邪教, 脳梗塞
　'@@@@@@@@@@@@@@@@@@
End Sub

Sub 呪呪呪呪呪呪呪呪()
　'死死死死死死死死死死死死
　Dim あああああああああああ
　'死死死死死死死死死死死死
End Sub