Need help

[Plukey]

I have code that High Lights Duplicates in a Workbook. Out of the 12 sheets only 7, I want to find dup's. All 7 are formatted as Table's and are identical. It also high lights the tab when one is found. It works perfect but I cant figure out how to exclude 4 of the sheets. Columns are A - T and it searches through B .

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 Dim ws As Worksheet, Dn As Range, Q As Variant
 With CreateObject("scripting.dictionary")
 .CompareMode = vbTextCompare
Application.ScreenUpdating = False
 For Each ws In Worksheets
    ws.Tab.ColorIndex = xlColorIndexNone '<<<
    ws.Range("B2:B106").Interior.ColorIndex = xlNone
        For Each Dn In ws.Range("B2:B106")
            If Dn.Value <> "" Then
                If Not .exists(Dn.Value) Then
                    .Add Dn.Value, Array(Dn, ws)
                Else
                    Q = .Item(Dn.Value)
                        Q(0).Interior.Color = vbRed
                        Dn.Interior.Color = vbRed
                        ws.Tab.Color = 225
                        Q(1).Tab.Color = 225
                    .Item(Dn.Value) = Q
                End If
            End If
        Next Dn
 Next ws
 
Application.ScreenUpdating = True '<<<
End With
End Sub

 

[alansidman]

What are the Sheet Names to be excluded

If ws.Name <> "SheetToBeExcluded" and ws.Name <> "SecondSheetToBeExcluded" and ....... then

 

[Plukey]

If Sheet.Name <> "HOMEPAGE" And Sheet.Name <> "Other" And Sheet.Name <> "Closed PS" And Sheet.Name <> "Backlog to Research" And Sheet.Name <> "Pre-Scrap" Then

This what I've tried an I get Compile Error Next without for

 

[alansidman]

Probably missing an End if statement.

 

[Plukey]

Probably missing an End if statement.

Can you give me an example?

 

[alansidman]

Show us your updated code with the amendments you made that is giving you this error. Cannot fix what I cannot see.

 

[Plukey]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 Dim ws As Worksheet, Dn As Range, Q As Variant
 With CreateObject("scripting.dictionary")
 .CompareMode = vbTextCompare
Application.ScreenUpdating = False
 For Each ws In Worksheets
If Sheet.Name <> "HOMEPAGE" And Sheet.Name <> "Other" And Sheet.Name <> "Closed PS" And Sheet.Name <> "Backlog to Research" And Sheet.Name <> "Pre-Scrap" Then
    ws.Tab.ColorIndex = xlColorIndexNone '<<<
    ws.Range("B2:B106").Interior.ColorIndex = xlNone
        For Each Dn In ws.Range("B2:B106")
            If Dn.Value <> "" Then
                If Not .exists(Dn.Value) Then
                    .Add Dn.Value, Array(Dn, ws)
                Else
                    Q = .Item(Dn.Value)
                        Q(0).Interior.Color = vbRed
                        Dn.Interior.Color = vbRed
                        ws.Tab.Color = 225
                        Q(1).Tab.Color = 225
                    .Item(Dn.Value) = Q
                End If
            End If
        Next Dn
 Next ws
 
Application.ScreenUpdating = True '<<<
End With
End Sub

 

[Plukey]

I have know idea what just happen...Im home from work and I tried to type the error code.

 

[alansidman]

You inserted this line of code

If Sheet.Name <> "HOMEPAGE" And Sheet.Name <> "Other" And Sheet.Name <> "Closed PS" And Sheet.Name <> "Backlog to Research" And Sheet.Name <> "Pre-Scrap" Then

but there is no End If statement for this

For each IF statement there needs to be an end if statement unless the Then statement is on the same line.

 

[Plukey]

I added an End If still getting Error on ...End if without Block if????