VBA-ไม่สามารถเริ่มทำงานชีทใหม่ได้

[wasin0156]

เขียนโค้ดเพื่อเตรียมข้อมูลชีทแรกสำเร็จ แต่จะเริ่มเตรียมข้อมูลในชีทต่อไปไม่ได้
รบกวนช่วยดูโค้ดให้ด้วยครับ

Code: Select all

        With Range("P" & i).Validation
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="Completed,Pending"
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
    
    Next i
    
    Application.ScreenUpdating = True

    Sheets("ARAP").Range("B2").End(xlDown).Select

End Sub

[snasui]

หากจะผิดปกติก็คือบรรทัดสุดท้ายก่อน End Sub ครับ ส่วนบรรทัดอื่น ๆ ปกติ

ช่วยอธิบายว่าการเตรียมข้อมูลในชีตต่อไปที่ว่านั้นมีลำดับขั้นตอนอย่างไร ติดขัดตรงไหนครับ