エクセルマクロをすこし 2018年8月8日

シート全体選択し、新しいファイルにコピーをして名前を付けて保存（特定セルから)其の後不要部分削除し、上書き保存
BB13が保存時の名前、("AY:BV")は削除範囲
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
成功エクセルマクロ()
Cells.Select
Selection.Copy
Workbooks.Add'
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("BB13").Value
Columns("AY:BV").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLe
ActiveWorkbook.save
End Sub
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
参考までに