vba - Subscript out of Range and Sheet gets protected -

private sub cmdsub_click() unprotect 'copy input values sheet. dim lrow long dim ws worksheet dim lvalue date lvalue = if me.cbox4.value = "pending" set ws = thisworkbook.sheets("pending") else set ws = thisworkbook.sheets("completed") end if lrow = ws.cells(rows.count, 1).end(xlup).offset(1, 0).row if me.txt13.value = "" me.txt13.setfocus msgbox "'mandatory", vbokonly, "required field" exit sub elseif me.cbox1.value = "" me.cbox1.setfocus msgbox "'mandatory...", vbokonly, "required field" exit sub elseif me.cbox2.value = "" me.cbox2.setfocus msgbox "'mandatory...", vbokonly, "required field" exit sub elseif me.cbox2.value = "" me.cbox2.setfocus msgbox "'mandatory...", vbokonly, "required field" exit sub elseif me.txt1.value = "" me.txt1.setfocus msgbox "'mandatory...", vbokonly, "required field" exit sub elseif me.txt2.value = "" me.txt2.setfocus msgbox "'mandatory...", vbokonly, "required field" exit sub elseif me.txt3.value = "" me.txt3.setfocus msgbox "'mandatory...", vbokonly, "required field" exit sub elseif me.txt4.value = "" me.txt4.setfocus msgbox "'mandatory...", vbokonly, "required field" exit sub elseif me.txt5.value = "" me.txt5.setfocus msgbox "'mandatory...", vbokonly, "required field" exit sub elseif me.txt6.value = "" me.txt6.setfocus msgbox "'mandatory...", vbokonly, "required field" exit sub elseif me.txt7.value = "" me.txt7.setfocus msgbox "'mandatory...", vbokonly, "required field" exit sub elseif me.cbox4.value = "" me.cbox4.setfocus msgbox "'mandatory...", vbokonly, "required field" exit sub end if ws     .cells(lrow, 1).value = me.lbl1.caption     .cells(lrow, 2).value = me.txt13.value     .cells(lrow, 3).value = cbox1.value     .cells(lrow, 4).value = cbox2.value     .cells(lrow, 5).value = cbox3.value     .cells(lrow, 6).value = me.txt1.value     .cells(lrow, 7).value = me.txt2.value     .cells(lrow, 8).value = me.txt3.value     .cells(lrow, 9).value = me.txt4.value     .cells(lrow, 10).value = me.txt5.value     .cells(lrow, 11).value = me.txt6.value     .cells(lrow, 12).value = me.txt7.value     .cells(lrow, 13).value = cbox4.value     .cells(lrow, 23).value = me.txt15.value     .cells(lrow, 24).value = "unknown"             end 'clear input controls. me.lbl1.caption = now() cbox1.value = "" cbox2.value = "" cbox3.value = "" me.txt1.value = "" me.txt2.value = "" me.txt3.value = "" me.txt4.value = "" me.txt5.value = "" me.txt6.value = "" me.txt7.value = "" me.txt13.value = "" me.txt15.value = "" cbox4.value = "" cmb1.value = "" moveanddelete cbox1.visible = false cbox2.visible = false cbox3.visible = false txt1.visible = false txt2.visible = false txt3.visible = false txt4.visible = false txt5.visible = false txt6.visible = false txt7.visible = false cbox4.visible = false txt13.visible = false label1.visible = false label2.visible = false label3.visible = false label4.visible = false label5.visible = false label6.visible = false label7.visible = false label8.visible = false label9.visible = false label10.visible = false label11.visible = false label12.visible = false txt15.visible = false label21.visible = false cmdsub.visible = false cmdnxt.visible = false abc bcd protect application.displayalerts = false     end sub    sub unprotect()   dim wsheet worksheet    each wsheet in worksheets     wsheet.unprotect password:="passworld"   next wsheet   end sub   sub protect() dim wsheet worksheet each wsheet in worksheets     wsheet.protect password:="passworld" next wsheet  end sub 

when run above code gives me error:

runtime error 9. subscript out of range.

i'm unable debug it. have tried several possibilities of no use. have protect , unprotect sheet happens have other sheet when i'm using macro gets protected.

check lrow value setting (ws.cells(rows.count, 1).end(xlup).offset(1, 0).row) 0 in offset function may causing problem, remove not required.