I'm a little bit confused that the following does not seem to be valid.
Copy from another active Workbook and
Workbooks("A").Worksheets("B"). Range("Goal"). Activate
Paste....
If Worksheets("A") was the active sheet before switching to another WB then
the code returns to the A-sheet and give me the error 1004 as it cannot find
the
range "Goal" in this sheet.

Is it really necessary to acivate each part individually?
Workbooks("A").Activate
Worksheets("B").Activate
Range("Goal"). Activate

Why? It doesn't seem to be logic!