| 
    
     |  | お世話になります。 プログラムの抜粋で申し訳ないのですが、以下のコードのDEBUG.PRINT AMD6の箇所まで、動作いたしません。エラーは出ませんがAMD6が1になりません。私の考えでは”※”の部分の書き方がミスしているせいで悪さをしていると思うのですが、一読して、原因に気づかれる方がいましたらどうかアドバイスお願いします。
 mymaxrow2 = Worksheets("作").Range("A65536").End(xlUp).row
 
 vntData3 = Sheets("作").Range(Cells(1, 4), Cells(mymaxrow2, 4)).Value
 
 AMD4 = 1
 Debug.Print "AMD4=" & 1
 
 mymaxrow2 = Worksheets("D2").Range("A65536").End(xlUp).row
 
 AMD5 = 1
 Debug.Print "AMD5=" & 1
 
 Sheets("D2").Cells(mymaxrow2 + 1, 200) = WorksheetFunction.max(vntData3.Range(Cells(1 + 26, 1), Cells(9 + 26, 1)))←※
 
 AMD6 = 1
 Debug.Print "AMD6=" & 1
 
 
 |  |