SheetsクラスのSelectメソッドが失敗
Excelファイルのマクロで、SheetsクラスのSelectメソッドが失敗しましたのエラーが出ます
以下のマクロですが、最初のSheets(Array(................))._Select
でエラーになりますその後は解りませんが...。
原因はSelectしているSheetの中に非表示なシートがあるのが原因ですが、
このマクロが入っているExcelファイルは色々な人が使うので人によって非表示にしたい
シートがまちまちで、限定は出来ません。ただし、非表示にしたものはそのファイルを
使う人はそのシートはなくても構わないですので、使う人によってマクロを修正すれば
動くのですが、ちょっと面倒なのでこのマクロを修正して対応出来ればと思います。
このケースはsheet4~sheet10までのシートを選択して、選択した全てのシートの特定
部分を消去し、選択していないシートに入って選択を解除し基本となるシートに戻る
というマクロです。
マクロの記録で作成して、いらなそうなやつを削除したものです。
ホームページで色々検索しましたが、非表示シートはSelect出来ないと言うことは何となく
解りましたが、マクロの記録で作成した事でも解るように全くの初心者ですので、そこの
ところよろしくお願いします。
Sub クリアー()
'
' クリアー Macro
'
Sheets(Array("sheet4", "sheet5", "sheet6", "sheet7", "sheet8", "sheet9", "sheet10")). _
Select
Sheets("sheet6").Activate
Union(Range( _
"F109:BO109,F112:BO112,F115:BO115,F118:BO118,F121:BO121" _
), Range( _
"FJ225:GS225,FJ228:GS228,FJ231:GS231,FJ234:GS234,FJ237:GS237" _
), Range( _
"OA535:PD535,OA538:PD538,OA541:PD541,OA544:PD544,OA547:PD547")).Select
Selection.ClearContents
Sheets("sheet3").Select
Sheets("sheet6").Select
Range("J1:L1").Select
End Sub
お礼
ご回答ありがとうございます。