Easy macro problem to solve

Hello,

i have values in column A that i can use as reference point for the rows i want to delete. So whenever there is a value "listina" in cell A i want the code to delete this row and 4 rows that are bellow it.
So if the value is in cell A39 i want the code to delete ROWS 39 to 43, and then go hunting for next cell where there is a cell with value "listina"
This code dosent work it says that something is wrong on the step Next cell

Please Login or Register  to view this content.

Thank you for your help

1. don't use procedure or variable names that are identical to properties or methods, because this will get revenge one day.
2. the "End If" was missing from the code.
3. "LISTINA" is not the same as "Listina" or "LiStInA". If you want to delete all occurrences regardless of case, you'll have to work a little harder.

Code after changes:

Please Login or Register  to view this content.

Artik

Hello Atop,

Amending your existing code, assuming you have headings in row1, perhaps this:-

Please Login or Register  to view this content.

I hope that this helps.

Cheerio,
vcoolio.

Thank you both for your input, i was sloppy :D

Thanks again

You can use the "Option Compare Text" directive at the beginning of the module, but you need to be aware of the consequences of its use. If there are other routines in the module that contain text comparison methods, they may return unexpected results, as case may be ignored. If this directive is used, there should only be procedures in the module that are supposed to ignore case.

Artik