VBA Excel 2011 : 시트 자체가없는 워크 시트. 이동

Question

Worksheet.Move에 시트 통합 문서가 없어도 호출 할 수 있습니까? 통합 문서를 화면에 표시하고 ScreenUpdating을 해제해도이 문제를 방지하지는 않습니다.

Answer 1

(단순히 이동하기 전에 현재 통합 문서를 추적하고 이미 비슷한 일을하고있어이

Sub Demo1() 
    Dim wsToMove As Worksheet, wsBefore As Worksheet 
    Dim wbActive As Workbook 

    Application.ScreenUpdating = False 
    Set wbActive = ActiveWorkbook 
    Set wsToMove = ThisWorkbook.Worksheets("Sheet2") ' update to suit 
    Set wsBefore = wsToMove.Parent.ActiveSheet ' update to suit 
    wsToMove.Parent.Activate 
    wsToMove.Move Before:=wsBefore 
    wbActive.Activate 
    Application.ScreenUpdating = True 
End Sub