Executing the following vba code in multiple sheets

Hello.

I want to excecute the following Code in multiple Worksheets.
The macro is supposed to delete duplicate cells in column A
So if we for instance have

as12
as12
be23

I would like to have one "as12" row deleted so that I have each entry in column A only once.

This is the code that works if I apply it to each sheet seperately.

Please Login or Register  to view this content.

I need this code in a modified way so that it runs for let's say sheets 1,2,3,4,5.

I tried a lot but somehow I cannot get it done without help.

Would be great to get some advice.

Regards,
Andreas

Hi try this

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Hello. Great Thanks a lot for your help! AB33's approch works great!

My next issue is to count equal cells across multiple sheets. This code again works fine to count the equal entries in one sheet but I cannot transform it to work in multiple sheets.

I want to count cells with equal entries such as "ab33" for instance. So let's say ab33 occurs in sheet 3 and in sheet 4 I want to get the macro to plot a table with

ab33 2

This is the code that works for a single sheet.

Please Login or Register  to view this content.

and1andi,
Your latest request requires a new thread as it is not related to the original thread. It is difficult to adjust the code with out seeing the sample. I have just added a loop to your code.

Please Login or Register  to view this content.