خطا در بلوک If

[Juliet]

درود دوستان
این خلاصه ای از کد پشت Text Box منه، اما به محض فشردن هر کلیدی (Key Down) روی سطری که قرمز کردم خطا میده متن خطاش هم اینه:

چرا باید رو این سطر این خطا رو بده؟
Compile Error
End If without block If

Private Sub tb_Code_e_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If (KeyCode = 13) Then
        
        For i = 2 To 294
            If (Worksheets(1).Cells(i, 1) = tb_Code_s.Text) Then
                If (Cells(3, 1) = "") Then
                    Row_Num = 3
                End If
                Do
                    Cells(...
                    Cells(...
                    Cells(...
                    Cells(...                
                    i = i + 1
                While (Worksheets(1).Cells(i, 1) = tb_Code_e.Text)
                    
        End If
        Next i
        
        tb_Code_s = ""
        tb_Code_e = ""
    End If
End Sub

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[~M*E*H*D*I~]

درود

do

loop while

اصلاح کنید

[Juliet]

واااای
چه گیجم، بیخود نیست میگن عجله کار شیطونه، ولی خودمونیم ارورش نکته انحرافی داشت

سپاس