Macro for deleting last row in all sheets except 3 sheets

sir i have a workbook
with around 25- 30 sheets

now i want a macro

to delete last row of all sheets except 3 sheets with name
"DATA" , " TRI" and "STOCKTEMP"
in all remaing sheets check the value in "A" column last cell and delete the entire row

thank you in advance
harish

Try

Please Login or Register  to view this content.

Please Login or Register  to view this content.

excellent sir
thank you for fast reply with answer

harish

sir one more requset for the same file

need to delete all rows seeing first empty cell in "D" column after D40 cell

to delete rows of all sheets except 3 sheets with name
"DATA" , " TRI" and "STOCKTEMP"
in all remaing sheets
sorry for distubing again when i was working with my file i was facing problem with this
so late reply

thank you

harish