Loop - Shorten my code

Hello,
i have got several stock data sets and would like to delete automatically every date with an volume of zero.
I have for every stock another loop, is it possible to shorten this? By now I have only 3 stocks that makes it easy to handle, but i assume that it will be confusing with more stocks as I have to add another loop for every stock.

The code is part of an portfolio optimization code, I'm starting to set up...

Please Login or Register  to view this content.

Thank you very much for your help!

Something like:

Please Login or Register  to view this content.

replace activeworkbook.sheets with the collection of sheets you want to apply it to or put a test in to skip certain sheets.

Note - I changed your code to loop backwards, so that it won't skip rows (i.e. if you delete row 5, row 6 becomes row 5, but the i variable will still become row 6 the next time, so what was row 6 is effectively skipped

It is possible to shorten. Are wsBMW, wsBASF etc are worksheets? Can you upload the workbook?

Hello,

thanks for your quick replys.
Here is my workbook:http://www.herber.de/bbs/user/91168.xlsm

sorry, it should be ws.rows(I).delete

Well,
thanks for your help! My code is running but it's not working

Please Login or Register  to view this content.

I tried it, but it doesn't delete anything in my Excel-Worksheet. I have attached my file: http://www.herber.de/bbs/user/91195.xlsm

Thank you very much for your help!