[Excel VBA] For内で宣言した変数が関数の引数として使用できないです

Question

前提・実現したいこと

For文内で宣言した変数を引数として使いたいのですが、エラーが起きてしまい使えない状態です。
For内で宣言しFor内で使用しようとしているのでスコープの問題でもないでしょうし
引数の型は合ってますし、なにより同じ関数呼び出しの引数で複数回使っているのにも関わらず
使えるところと使えないところがあったりしてもう訳が分かりません。

どなたかお力添えお願いします。

発生している問題・エラーメッセージ

実行時エラー:'1004'
アプリケーション定義またはオブジェクト定義のエラーです

問題なのは Cells(y, x) のy ,x が使用できないところだと思います

該当のソースコード

Sub TestForIf()

Dim num As Integer: num = 180

    With Worksheets("Input")
        For y = 0 To .Cells(1, 2).Value - 1
            For x = 0 To .Cells(2, 2).Value - 1
                Call SetImage( _
                    Worksheets("Input").Cells(2 + y, 8 + x).Value, _
                    Cells(y, x), _
                    num)
　　　　　　　　　　　'Worksheets("Input").Cells(2 + y, 8 + x).Valueの変数x,yは生きている　
　　　　　　　　　　　'Cells(y, x)の変数y,xが使えない
　　　　　　　　　　　'Cells(y, x)をCells(1, 2)とかにすると解決する
            Next
        Next
    End With
    
End Sub

呼び出し先の関数です
恐らくこちらに問題は無いと思います

Sub SetImage(index As Integer, cell As Range, rot As Integer)

Dim targetCell As Range: Set targetCell = cell
Dim rotate As Integer: rotate = rot
Dim filePath As String: filePath = "C:\Users\mushipan0929\Downloads\Image_" & index & ".png"

    With Worksheets("Output")
        .Shapes.AddPicture _
            filePath, _
            True, _
            True, _
            targetCell.Left, _
            targetCell.Top, _
            targetCell.Width, _
            targetCell.Height
        .Shapes(.Shapes.Count).rotation = rotate
    End With
    
End Sub

試したこと

エラー'1004'で検索して出てきた問題点などはあらかた確認しました。

Answer 1

Cells(y, x),の部分で、Cells(0, 0)を参照しようとするからでは？
セル番号は1始まりです。

あと、

With Worksheets("Input") と、 .Cells(1, 2)
Worksheets("Input").Cells(2 + y, 8 + x)
Cells(y, x)

とバラバラで、一人の人が書いたと思えないコードですね。

Comments

[mushipan0929]

なるほど！0から始まるものかと思っていました、ありがとうございますー
あと書き方の統一も出来ていませんでしたね、そこも直します。

見にくさについてはVBA1日目なのでお許しを...

[otn]

なるほど。1日目ですか。
単にCells(x,y)と書くと、アクティブシートのセルを参照しますので、"Input"シートじゃないかもしれません。
.Cells(x,y) と、Withで指定したシートとするのが良いでしょう。