ファイルコピーしたいのですが・・・

Sub ファイルを開く()
Dim wb As Workbook
Dim strFile As Variant
strFile = Application.GetOpenFilename("EXCEL,*.xls")
If strFile = False Then
Exit Sub
End If

strFile を”コピー”と頭に付けて、

（たとえば、Book.xls を　コピーBook.xlsにして

デスクトップに保存したいのですが、

どうしたら良いのか、苦しんでいます。

saveas プロパティを使うのでしょうか。