<div>
<div class="content wysiwyg-content">
Have typical VBA to find duplicates and set the duplicate cell's background in different colors. (see below) &nbsp;Instead of specific cell changing color I would like multiple cells (cells from columns A to H) to be colored. &nbsp;How to code? 
Thanks 
 
&nbsp; &nbsp; &nbsp; &nbsp; Dim cel As Range 
&nbsp; &nbsp; &nbsp; &nbsp; Dim myrng As Range 
&nbsp; &nbsp; &nbsp; &nbsp; Dim clr As Long 
 
&nbsp; &nbsp; &nbsp; &nbsp; Set myrng = Range(&quot;H2:H&quot; &amp;&nbsp;Range(&quot;H65536&quot;).End(xlUp).Row) 
&nbsp; &nbsp; &nbsp; &nbsp; myrng.Interior.ColorIndex = xlNone 
&nbsp; &nbsp; &nbsp; &nbsp; clr = 3 
 
&nbsp; &nbsp; &nbsp; &nbsp; For Each cel In myrng 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;If Application.WorksheetFunction.CountIf(myrng, cel) &gt;&nbsp;1 Then 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If WorksheetFunction.CountIf(Range(&quot;H2:H&quot; &amp;&nbsp;cel.Row), cel) = 1 Then 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;cel.Interior.ColorIndex = clr 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;clr = clr + 1 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If clr = 56 Then clr = 3 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;cel.Interior.ColorIndex = myrng.Cells(WorksheetFunction.Match(cel, myrng, False), 1).Interior.ColorIndex 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If 
&nbsp; &nbsp; &nbsp; &nbsp;Next
</div>
</div>

Have typical VBA to find duplicates and set the duplicate cell's background in different colors. (see below)  Instead of specific cell changing color I would like multiple cells (cells from columns A to H) to be colored.  How to code?
Thanks

        Dim cel As Range
        Dim myrng As Range
        Dim clr As Long

        Set myrng = Range("H2:H" & Range("H65536").End(xlUp).Row)
        myrng.Interior.ColorIndex = xlNone
        clr = 3

        For Each cel In myrng
           If Application.WorksheetFunction.CountIf(myrng, cel) > 1 Then
              If WorksheetFunction.CountIf(Range("H2:H" & cel.Row), cel) = 1 Then
                 cel.Interior.ColorIndex = clr
                 clr = clr + 1
                    If clr = 56 Then clr = 3
              Else
                 cel.Interior.ColorIndex = myrng.Cells(WorksheetFunction.Match(cel, myrng, False), 1).Interior.ColorIndex
              End If
          End If
       Next

Excel VBA and Color Format

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.

Visual Basic Classic

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.

Microsoft Office

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.