ファイルダイアログを使うことのまとめ

Option Explicit

Sub Save_a_Sheet_Using_Dialog()
'ファイルダイアログを使うことのまとめ
'このブックにあるシートを、別ブックにして保存する

Dim CopyingSheet As Worksheet
Set CopyingSheet = ThisWorkbook.Worksheets("個人情報36件")

Dim DefaultSavingFolderPath As String
DefaultSavingFolderPath = Environ("UserProfile") & "¥onedrive¥デスクトップ¥DestinationFolder¥"

Dim NewFilePathAndName As String
NewFilePathAndName = Application.GetSaveAsFilename( _
                            InitialFileName:=DefaultSavingFolderPath & CopyingSheet.Name, _
                            filefilter:="マイクロソフトExcelファイル,*.xlsx", _
                            Title:="ファイル名を選択してください")

'シートをコピーとは、新規ブックを作ることに他ならない
CopyingSheet.Copy
ActiveWorkbook.SaveAs Filename:=NewFilePathAndName
ActiveWorkbook.Close

ThisWorkbook.Worksheets("sheet1").Activate

End Sub