Dim fCell As Range
Dim tCell As Range

Dim Ws As Worksheet
Dim mEvent As String
Dim mColour As Integer


For Each Ws In Worksheets
Select Case Ws.Name
Case "May", "June" ' etc - do not include Master & non-dup
For Each fCell In Ws.Range("a1:a" & Ws.[a65536].End(xlUp).Row)
mEvent$ = fCell.Value
mColour = fCell.Interior.ColorIndex
For Each tCell In Sheets("non-dup").Range("a1:a"
Sheets("non-dup").[a65536].End(xlUp).Row)

If tCell.Value = mEvent Then
tCell.Interior.ColorIndex = mColour
Exit For
End If
Next tCell
For Each tCell In Sheets("master").Range("a1:a"
Sheets("master").[a65536].End(xlUp).Row)
If tCell.Value = mEvent Then
tCell.Interior.ColorIndex = mColour
Exit For
End If
Next tCell
Next fCell
End Select
Next W

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com