excel vba 他のパソコンでマクロを使用すると動かない（新規ブックにコピペができない）

VBA 初心者です。

以下のコードをどうにか作成しました。自身のパソコン上では作動するのですが、
他のパソコンで使ってみると、エラーメッセージで「パスがみつかりません」、
デバックして、 ChDir "C:\Users\会社User\Desktop"　を指定されます。

どのパソコン上でも使えるようにしたいのですが、どのように修正すれば
良いのでしょうか。
お力添えよろしくお願い致します。

＞

Sub ペースト()

Dim wb As Workbook
Workbooks.Add
Set wb = ActiveWorkbook
ChDir "C:\Users\会社User\Desktop"
Windows("データ.xls").Activate
Sheets("まとめ").Select
Range("A2:E1000").Select
Selection.Copy
wb.Activate
Cells.Select
ActiveSheet.Paste
Range("A1").Select
Windows("データ.xls").Activate
Sheets("まとめ").Select
Range("A2:E1000").Select
Selection.Clear
Range("F2").Select

End Sub

No.2 ベストアンサー 回答者： siffon9 回答日時： 2016/05/23 12:09

「他のパソコン」のユーザー名が「会社User」ではないと指定のパスは存在しなくなります。

ChDir "C:\Users\会社User\Desktop"　を以下の様に変更したらどうでしょうか？
↓
ChDir "C:\Users\” & Application.UserName & "\Desktop"

この回答へのお礼

ありがとうございました。

根本的なことを理解しておりませんでした。
ご回答の変更でもデバックしてしまいましたが、
ChDir "C:\Users\会社User\Desktop"　そもそも
削除すれば良かったので、これでどうにかなりました。

お礼日時：2016/05/23 14:04

No.1 回答者： GooUserラック 回答日時： 2016/05/23 12:06

同じフォルダーを作れば出来ます。

ただし「C:\Users\」の直下にはユーザーごとのフォルダーになるので、今回の場合は「会社User」というユーザーを作らないといけないかもしれません。

この回答へのお礼

ありがとうございました。
根本的なことを理解しておりませんでした。

お礼日時：2016/05/23 14:03