Я хочу переместить 3 листа из одной рабочей книги в другую. я перепробовал много макросов, но сейчас использую этот

Question

 `Sub MovetoNewSheet()
 Dim ObjWb As Workbook
 Dim ObjWs As Worksheet
 Set ObjWb = Workbooks("CompareResults.xlsx")
 Set ObjWs = Worksheets("Sheet3")
 ThisWorkbook.Sheets("Result").Move Before:=ObjWb.ObjWs
 ThisWorkbook.Sheets("DeletedBlocks").Move Before:=ObjWb.ObjWs
 ThisWorkbook.Sheets("COUNT").Move Before:=ObjWb.ObjWs
End Sub

Я использую приведенный выше код для перемещения 3 листов из одной рабочей книги в другую. лист CompareResult открыт, пожалуйста, помогите мне.