シートAの保存を他のＰＣのデスクトップにしたい

質問

Excel2007で見よう見真似でマクロ作成の初心者です。３時間ほどの試行錯誤を繰り返しました。が、お手上げのため質問します。本ブックのシートＡを、他のＰＣでも、マクロが実行できるようにしたいです。よろしくお願いします。
Option Explicit
Sub シートAの保存を他のＰＣでしたい() '
'Const cnsTITLE = "マクロなしブックの作成"
'Const cnsFILTER = "Excelワークブック (*.xls),*.xls"
Dim xlAPP As Application
Dim WBK1 As Workbook ' 本ブックの
Dim WBK2 As Workbook ' 作成ブック
Dim strFileName As String
Dim tblSH As Variant
Dim lngLines As Long
Dim myDate As String
Worksheets("シートＡ").Select
myDate = Range("AE4").Value
'Date = Format(Date, "ge年m月度")
Set WBK1 = ThisWorkbook ' 本ブック
' シートＡをデスクトップの「計算綴り」にコピーする
Worksheets("シートＡ").Copy
Set WBK2 = ActiveWorkbook
strFileName = Format(myDate, "ge年m月度") & ".xls"
ChDir "C:\Users\aaaaa\Desktop\計算綴り"
　　’私はaaaaaのため、私しかできないです。
Application.DisplayAlerts = False
WBK2.SaveAs "基本計算書" & strFileName, FileFormat:=XlFileFormat.xlExcel8
MsgBox "この計算書を基本計算書　" & myDate & "　の名前で保存しました。"
Application.DisplayFormulaBar = True
WBK2.Close False
Application.DisplayAlerts = True
Set WBK2 = Nothing
MAKE_NEWBOOK_WO_MACROS_EXIT:
Set WBK1 = Nothing
Set xlAPP = Nothing
End Sub
--------------------------------------------
いろいろサイトを探していたら次のコードが参考になるようですが
これを利用してコードを修正できません。よろしくご指導ください。
''次のコードは、アクティブブックを「デスクトップ」フォルダに
「Sample.xls」という名前で保存します。

Sub Sample3()
Dim Path As String, WSH As Variant
Set WSH = CreateObject("Wscript.Shell")
Path = WSH.SpecialFolders("Desktop") & "\計算綴り"
ActiveWorkbook.SaveAs Path & "Sample1.xls"
Set WSH = Nothing
End Sub

回答No.1

Siegrune · ベストアンサー

## いろいろやり方が考えられるのでこれがいいかどうかは難しいところですけど
## せっかく見つけられたコードだから利用して。

>次のコードが参考になるようですが

Dim Path As String, WSH As Variant
Set WSH = CreateObject("Wscript.Shell")
Path = WSH.SpecialFolders("Desktop") & "\計算綴り"
ActiveWorkbook.SaveAs Path & "Sample1.xls"
Set WSH = Nothing
を
ChDir "C:\Users\aaaaa\Desktop\計算綴り"
　　’私はaaaaaのため、私しかできないです。
の直前に追加して
ChDir Path
と変更してみればどうでしょう？

## 試していませんけど。

お礼

完璧にできました。ありがとうございました。