Excel VBA Run-time error '13' Type mismatch

Hi I have a macro that can delete rows, I have a problem with my macro because sometimes when I used it I get a Run-time error '13' Type mismatch but sometimes it is working. I don't know why sometimes I get this error, besides I am using almost the same template everytime. It works in some template, and sometimes it doesnt work, Here is my code below. I hope you guys can help me. thank you so much.

Please Login or Register  to view this content.

The Error comes in this line

Please Login or Register  to view this content.

Hi tuongtu3,

It works! the runtime error is gone! but, I have a problem, because the macro can delete in multiple sheet/tab. and the problem is, when I replaced FoundCell to strToDelete, it display all the data that should be deleted in the message box.

1.PNG

If you an see the image, GBSOU and SOF01 is the data I enter / data to be delete. the problem is. SOF01 is not listed in OFR_MAINLEG_FCL tab. it is in the other tab I selected.

this is the second message box,

2.PNG

as you can see the gbsou and sof01 is there in message box. which is not correct. because the message box should only display 1 data at a time. i hope you understand what I am saying I am not very good in english