Excelのマクロで「オートメーションエラー」が出る

Microsoft Office


Excelマクロで「オートメーションエラー」が出ることがあったのでメモ
エラーの原因は、setしたシートを削除したからかな。

Option Explicit 

Sub subTest() 

    Dim mySheet1 As Worksheet 
    Dim mySheet2 As Worksheet 

    ' （１）シートset
    Set mySheet1 = ThisWorkbook.Worksheets("Sheet1") 
    Set mySheet2 = ThisWorkbook.Worksheets("Sheet2") 

    ' 【○】選択できる
    mySheet1.Select 

    ' 【○】削除できる
    mySheet1.Delete 

    ' （２）削除したシート１を元に戻す（シート２をコピーして名前変更）
    mySheet2.Copy Before:=mySheet2 
    ThisWorkbook.Worksheets("Sheet2 (2)").Name = "Sheet1" 

    '' （３）再set 
    'Set mySheet1 = ThisWorkbook.Worksheets("Sheet1") 

    ' 【×】オートメーションエラー
    mySheet1.Select 

End Sub


削除したシートと同じ名前のシートを作ってもダメっぽい
（３）のsetしなおしで何とかなった。