エクセルで、シートを非表示のままマクロを実行するには？

質問

エクセル初心者です。
Sheet1で、マクロの実行ボタンがあり、Sheet2で、データを編集して、
Sheet1に結果の一覧を表示させるマクロなのですが、
Sheet2は非表示のままマクロを実行したいのですが、うまくいかず、
Sheet2を表示して、実行するとうまくいくため、
一時的にシートを表示させるようにしてみたのですが、
Sheets("Sheet2").Range(Cells(2, 28), Cells(rowCnt, 37)).Insert Shift:=xlDown
で、アプリケーション定義・オブジェクト定義エラーになります。
どなたかご指南下さい。

Private Sub EDITSLINF()

Dim rowCnt As Long
Application.ScreenUpdating = False
Worksheets("製造記録一覧 (edit1)").Visible = True

　Sheets("Sheet2").Range("AB2:AK300").ClearContents

'追加レコード抽出&コピー&ペースト

Sheets("Sheet2").Range("Q1:Z300").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"AP1:AP2"), CopyToRange:=Sheets("Sheet2").Range("AB1:AK1"), Unique:=False

'既存レコードコピー&ペースト

rowCnt = Sheets("Sheet2").Range("O1")

Sheets("Sheet2").Range(Cells(2, 28), Cells(rowCnt, 37)).Insert Shift:=xlDown
Sheets("Sheet2").Range(Cells(2, 28), Cells(rowCnt, 37)).Interior.ColorIndex = xlNone

Sheets("Sheet2").Range(Cells(2, 2), Cells(rowCnt, 11)).Copy

Sheets("Sheet2").Range("AB2").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Worksheets("Sheet2").Visible = False

'メインシートへコピー

　 Application.CutCopyMode = False
Sheets("Sheet2").Range("AB2:AJ300").Copy
Sheets("Sheet1").Range("K4").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

End Sub

回答No.1

watabe007 · ベストアンサー

>Sheets("Sheet2").Range(Cells(2, 28), Cells(rowCnt, 37)).Insert Shift:=xlDown
>で、アプリケーション定義・オブジェクト定義エラーになります。
CellsプロパテイもSheets("Sheet2")を参照するようにしましょう

With Sheets("Sheet2")
　　.Range(.Cells(2, 28), .Cells(rowCnt, 37)).Insert Shift:=xlDown
End With

お礼

ありがとうございました！うまく行きました。
シートの参照の仕方がいけないのかと思いながらも調べきれずにいたのが、おかげさまで、すっきりしました。

回答No.2

liberty01

簡単な方法としては、

その非表示のシートを処理開始時に表示させて、処理終了後に非表示にすれば良いんじゃないの？？

Private Sub EDITSLINF()
　Worksheets("Sheet2").Visible = True

　あなたの処理

　Worksheets("Sheet2").Visible = False
End　Sub