エクセル2007のマクロについて

実践で学ぶ Office Excel 2007 VBAというマクロの学習サイトで Sub Macro実践1() 'ブック シート セルアドレスを指定すればブック シートをアクティブにする必要はない　　　　 　　 Workbooks("転記.xlsx").Worksheets("転記シート1").Range("A1").Value = _　　　　　 　　 Workbooks("データ.xlsx").Worksheets("データ1").Range("A1").Value　　　　　　 　　End Sub　　　　 と入力すると「インデックスが有効範囲にありません」となってしまいます。なにか間違っているのでしょうか？