Excel 2013 VBAでランタイムエラー91が発生することなく、ActiveWorkbook/Workbooks（名前）を使用するにはどうすればよいですか？

Question

このようなマクロを書いたのは初めてではありませんが、これをどのように動作させるかはわかりません。私ははは動作しなければならないと思っています。オブジェクト変数またはでブロック変数エラーメッセージが設定されていません：

私の問題は私の仕事の日の初めにスニップが一度正確働いている間が、その後、私はいつもランタイムエラー'91を得るということです。

私は2つのワークブックを開いていて、マクロを開始する前にを手作業でとしたいワークブック内のセルを選択しました。

Option Explicit 
Sub test() 

Dim source, sheet As Worksheet 
Dim sourcename As String 
Dim targetname As String 
Dim test As Workbook 
Workbooks("Test.xlsm").Activate 
test = ActiveWorkbook 
Debug.Print (test.Name) 

sourcename = "Tabelle1" 
targetname = "Tabelle2" 

Set sheet = ActiveWorkbook.Worksheets(sourcename) 
Set source = ActiveWorkbook.Worksheets(targetname) 

Debug.print(sheet.Name) 
Debug.print(source.Name) 

End Sub 

エラーがtest = ActiveWorkbook

EDIT含む行で発生初期Setエラーが修正された後を、シートとソース変数は、このように、それぞれが別のエラーの原因となって、まだ空でありますこの種の

ここでの問題は何ですか？どのように修正できますか？ここ

Answer 1

2つの問題：

は変数とサブの両方に同じ名前を与えていない1st-、あなたは両方の

のための「テスト」を持っている Set test = ActiveWorkbook

のようなこのライン test = ActiveWorkbook前 Setを追加します2nd-

覚えている変更 - 他のものにサブ名test