Do Until 変数値

Question

前提・実現したいこと

現在あるシートから値が空文字になるまで処理をするといった内容を書いています。

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

Debug.printの最初の値が2ではなく最終行の10が表示されてしまいます。

該当のソースコード

Function Code_Get(item_code, LIST_SHEET)
    Dim temp As Integer: temp = 2
    Dim check_code
    Dim summary_code
    
    Do Until LIST_SHEET.Cells(temp, 1).Value = ""
           
    Debug.Print (temp)
        check_code = LIST_SHEET.Cells(temp, 2).Value
        If check_code = item_code Then
            summary_code = list_range.Offset(temp, 3).Value
            Code_Get = summary_code
        End If
        temp = temp + 1
    Loop
            summary_code = ""
            Code_Get = summary_code
End Function

補足情報（FW/ツールのバージョンなど）

office2010

Answer 1

すいません。うまくいってました。
イミディエイトウィンドウの表示限界で間違っているように見えただけでした。