>>362
SaveAs行の前に、mySheet.Selectを追加してみて