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.

Sub deleteDuplEntries()

    Range("a1").Select
    Do Until ActiveCell.Value = ""
    If ActiveCell.Value = ActiveCell.Offset(1, 0).Value _
    Then ActiveCell.EntireRow.Delete _
    Else ActiveCell.Offset(1, 0).Select
    Loop
    
End Sub
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