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

とりあえずマクロのタイトル通り
なお、エクセルのファイルで保存する際にダイヤログは表示されず、母体ファイルと同じフォルダに保存という設定にしています。（PDF変換時も出ません）
昔から目標としていたことが実現できました。そう、エクセルで特定セルの内容を保存する際、ダイヤログが表示されるということは当たり前と思っていたことが表示されないで処理されているということに一つ壁を乗り越えました。10年ぐらい前も一度挑戦をしたのですがその時はあきらめていました。
今回うまくできたのは色々なところで地震になった気がします。
これからもいろいろ勉強していきたいです。
//////////////////////////////////////////////////////////////////////////////////////////////////////////
Sub PDF作成､新しいブック作成後､値貼り付け書式のみ貼り付け後エクセル形式で保存､不要箇所削除上書き保存して閉じる()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("BB13") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
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
Columns("AY:BV").Hidden = True
ActiveWorkbook.SaveAs Filename:=Range("BB13").Value _

, FileFormat:=xlWorkbookDefault _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
’Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("BB13").Value
ではなくActiveWorkbook.SaveAs Filename:=Range("BB13").Value _を利用
Columns("AY:BV").Select
Application.CutCopyMode = Fals
Selection.Delete Shift:=xlToLe
Range("A3").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
/////////////////////////////////////////////////////////////
そんなわけで第一段階クリアといったところで次の機能を感がて行きたいです。