Guru do Excel e Power BI

Amigos do excel, tenho um relatório que gostaria que ele selecionasse as duas ultimas sheeets ("plan2" e "plan3" e mover para uma outra pasta(neste caso abriria um novo arquivo), eu quero que ela tenha um comando para salvar e quebrar os vinculos das formulas da pasta ww.porque quebrar vinculos por que eu tenho alguns percentuais dividindo a planila e nesse caso tem que ser um código para quebrar vinculos.
usei esse codigo mais está dando errado......
Set w = ActiveWorkbook
Sheets(Array("Plan2", "Plan3")).Copy
For Each w In Workbooks
If w.Name <> ThisWorkbook.Name Then
w.Close savechanges:=True
Else
ActiveWorkbook.BreakLink Name:="ww", Type:=excellinks
End If
Next w
End Sub

Aos amigos do excel, ao guru do excel e aos administradores do site, dá uma ajuda pelo amor de deus