>>581 （その７） -------------------------------- [Popupから呼び出すProc] Sub DoFilter() Sheets("List").Select Sheets("List").Range("$A$1:$C$5").AutoFilter Field:=1, Criteria1:="TEST" Call = Shell("wscript " & ThisWorkbook.Path & "\SelectSheet.vbs", vbHide) End Sub -------------------------------- [SelectSheet.vbsの中身] call SheetSelect_fromVBS Sub SheetSelect_fromVBS() Dim xlApp: Set xlApp = GetObject(, "Excel.Application") With xlApp .Workbooks("ListBook.xlsm").Activate .Worksheets("List").Select End With Set xlApp = Nothing End Sub -------------------------------- なんとこれが功を奏し、ActiveSheetの幽体離脱状態から抜け出すことができました。 シート切替も不要に。これで一先ず凌げそうですが、MSには不具合対応してもらいたいです。 コメントいただいた方々、ありがとうございました。
