変数の宣言をしなおすと治ります。
Dim Worksheets As String Dim Activate As String
自動的に大文字に変わるようになった後は、大文字に治すためだけに宣言した無駄な宣言は消しても大丈夫です。