软件: EXCEL
版本: 2010
大家好，
想请问我目前写了一个档案，里面有跨档案存盘，
例如：A档案按下宏后，将资料存到B档案。
这时候，想同时在A档案的宏内新增程式码，
在资料存到B档案后，自动跳出另存新档的这个功能，
(无默认路径，可自己选路径)。
另外，希望在另存后，能保有原先宏的功能。
之前有参考过版上so大帮别人解决的问题，
相关程式码如下：
Sub test()
Dim Wrk As Workbook
Dim shp As Shape, Fn$
Application.DisplayAlerts = False
Set Wrk = ThisWorkbook
With Application.FileDialog(2)
If .Show Then Fn = .SelectedItems(1)
End With
ActiveSheet.Copy
For Each shp In ActiveSheet.Shapes
shp.Delete
Next
ActiveWorkbook.SaveAs Fn
Wrk.Activate
Application.DisplayAlerts = True
End Sub
但此程式码似乎会将宏功能自动删除，
想请问若想将宏功能留下的话，该如何写比较好呢?
麻烦大家了，谢谢!!