差込印刷コードのエラー・Ｉｎｄｅｘが有効範囲にありません

質問

VBA初心者です。仕事でExcelを使っていて差込印刷のコードの書き方を勉強しているのですが、さっぱりわかりません。
　参考資料を真似て作ってみたのですが、実行時エラー'9'Indexが有効範囲にありませんと出てしまいます。解る方是非ご教授願いますm(_ _)m
Sub ターゲット連続印刷()
Set my Tar = Worksheets("ターゲット")
Set my Dat = Worksheets("data")
myArr = myDat.Range("A4:D7")

For y = 3 To 6
For n = 0 To 3
target_name = "TARGET" & n
myTar.Cells.Find(target_name).Value = myArr(y, n)
Next n

myTar.PrintOut
Apprication.DisplayAlerts = False
myTar.Delete
Application.DisplayAlerts = True
Next y

End Sub
まだ初心者なのでどう質問すればいいのか解らない点がいくつかありますが、何卒宜しくお願いしますm(_ _)m

回答No.1

verreglace

こんばんは。
回答ではないのですが・・・

ここは「数学」カテゴリーなのでVBAに詳しい人はあまりいないと思います。
デジタルライフ > ソフトウェア > Office系ソフト
もしくは
[技術者向] コンピューター > プログラミング > Visual Basic
のカテゴリーで質問されてみてはいかがでしょうか。

あと、下記なんかが参考になる・・・のかな？参考にならなかったらごめんなさい。
↓googleで「Excel 差込印刷」で検索しました。
http://oshiete1.goo.ne.jp/qa516566.html
http://oshiete1.goo.ne.jp/qa1672244.html