Delete Duplicate rows vb needs to run on all worksheets

Hi i have the below code which runs on deleting duplicate code which i found in an excel manual. I am having some trouble as i want to convert the code so that it will run on all worksheets i have which are numbered such as 1,2,3,4 etc.

This is so it makes the workbook easy maintenance for when deleting or adding worksheets which happens quite regularly.

Thanks

Sub Delete_Duplicate_Rows()
'
Dim str1 As String, str2 As String
Dim r1 As Long, r2 As Long, c As Long
'
Application.ScreenUpdating = False
With Sheets("1").UsedRange

'
For r1 = .Rows.Count To 2 Step -1
str1 = ""
For c = 1 To .Columns.Count
str1 = str1 & Cells(r1, c).Value
Next c
For r2 = r1 - 1 To 1 Step -1
str2 = ""
For c = 1 To .Columns.Count
str2 = str2 & Cells(r2, c).Value
Next c
If str1 = str2 Then
Rows(r1).Delete
Exit For
End If
Next r2
Next r1
'
End With
Application.ScreenUpdating = True

End Sub

You need to to edit that original post, highlight all that code, then click the CODE icon (it looks like this: #).

It's a forum rule and makes the code easier to read on the forum.
=========

Meanwhile, you want this macro to run on ALL sheets, or just sheets you've labeled 1,2,3,4...etc.?

For ALL sheets, give this a try, just wrapped your code in another loop for all the worksheets (untested without your workbook).

Option Explicit

Sub Delete_Duplicate_Rows()
Dim str1 As String, str2 As String
Dim r1 As Long, r2 As Long, c As Long
Dim ws As Worksheet

Application.ScreenUpdating = False

For Each ws In Worksheets

    With ws.UsedRange
    
        For r1 = .Rows.Count To 2 Step -1
            str1 = ""
            For c = 1 To .Columns.Count
                str1 = str1 & Cells(r1, c).Value
            Next c
                
            For r2 = r1 - 1 To 1 Step -1
                str2 = ""
                For c = 1 To .Columns.Count
                    str2 = str2 & Cells(r2, c).Value
                Next c
        
                If str1 = str2 Then
                    Rows(r1).Delete
                Exit For
                End If
            Next r2
        Next r1
    
    End With

Next ws

Application.ScreenUpdating = True
End Sub

Hello sandy.beach,

Which sheet names do you want to exclude?

Hello sandy.beach,

The macro will loop through all the sheets in the workbook. I used the Select Case statement to exclude the worksheets you posted. Here is the updated macro code.

Sub Delete_Duplicate_Rows()
'
Dim str1 As String, str2 As String
Dim r1 As Long, r2 As Long, c As Long
Dim Wks As Worksheet
'
Application.ScreenUpdating = False

For Each Wks In Worksheets
Select Case Wks.Name
Case "Main", "Menu"
  'Do nothing Skip these sheets
Case Else
With Wks.UsedRange

'
For r1 = .Rows.Count To 2 Step -1
str1 = ""
For c = 1 To .Columns.Count
str1 = str1 & Cells(r1, c).Value
Next c
For r2 = r1 - 1 To 1 Step -1
str2 = ""
For c = 1 To .Columns.Count
str2 = str2 & Cells(r2, c).Value
Next c
If str1 = str2 Then
Rows(r1).Delete
Exit For
End If
Next r2
Next r1
'
End With
Next Wks
End Select

Application.ScreenUpdating = True

End Sub