untested, but I believe this will do what you want. Change Col = 5 to refer
to the column where you want the comparison.
Public Sub DeleteDuplicateRows()
Dim Col As Integer
Col = 5 ' column E - set to your column
On Error GoTo EndMacro
shArray = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")
For k = UBound(shArray) To LBound(shArray)
Set Rng = ActiveSheet.UsedRange.Rows( _
N = 0
Application.ScreenUpdating = True
"Str8goofE" <str8go...@aol.com> wrote in messagenews:firstname.lastname@example.org...
> I copied a Macro from Chip Pearson's site that deletes duplicate rows if
> is a duplicate entry in a specified column(shown below)...is there anyway
> get this Macro to work on 5 worksheets by simply comparing the same column
> each of the 5 worksheets?
> Public Sub DeleteDuplicateRows()
> Dim Col As Integer
> On Error GoTo EndMacro
> Col = ActiveCell.Column
> If Selection.Rows.Count > 1 Then
> N = 0
> Application.ScreenUpdating = True
> End Sub
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.