excel - 元を変更せずに開いているブックをバックアップとして保存するExcel 2007 VBA

Question

オンラインで見つけたこのコードを適応させようとしています

Sub SaveCopyas2()
Dim newWB As Variant
Dim wb1 As Workbook, wb2 As Workbook

Set wb1 = ActiveWorkbook
If wb1.Saved = False Then MsgBox wb1.FullName, vbInformation, "Workbook Not Saved"

 'Set a filename for new workbook
newWB = Application.GetSaveAsFilename(ActiveWorkbook.FullName, "Excel Files (*.xls), *.xls", , "Set Filename")
If newWB <> False Then wb1.SaveCopyAs (newWB)
End Sub

これが行うことは、ユーザーがマクロを実行し、場所と名前を指定してバックアップを保存できるようにすることです

私がやろうとしているのは、マクロを実行すると、ファイルの名前が「バックアップ」になり、場所が C:\ になるようにすることです。

私がやりたいことをするためにこのコードを修正するのを手伝ってくれる人はいますか?