VBA Color Copier

mmatherne 

Here is a shorter version of the macro:

Sub Copy_Cell_Color_to_Another_Sheet()
    Dim OverallSheet As Worksheet
    Dim DWeldsSheet As Worksheet
    Dim AWeldsSheet As Worksheet
    Dim LoosePigtailsSheet As Worksheet
    Dim TeeDowncomerSheet As Worksheet
    Dim HeadersSheet As Worksheet
    Dim OverallRange As Range
    Dim OverallCell As Range
    Dim DWeldsCell As Range
    Dim AWeldsCell As Range
    Dim LoosePigtailsCell As Range
    Dim TeeDowncomerCell As Range
    Dim HeadersCell As Range
    Set OverallSheet = ThisWorkbook.Worksheets("Overall")
    Set DWeldsSheet = ThisWorkbook.Worksheets("DWelds")
    Set AWeldsSheet = ThisWorkbook.Worksheets("AWelds")
    Set LoosePigtailsSheet = ThisWorkbook.Worksheets("LoosePigtails")
    Set TeeDowncomerSheet = ThisWorkbook.Worksheets("TeeDowncomer")
    Set HeadersSheet = ThisWorkbook.Worksheets("Headers")
    Set OverallRange = OverallSheet.Range("G11:BF42")
    For Each OverallCell In OverallRange
        Set DWeldsCell = DWeldsSheet.Cells(OverallCell.Row, OverallCell.Column)
        DWeldsCell.Interior.Color = OverallCell.Interior.Color
        Set AWeldsCell = AWeldsSheet.Cells(OverallCell.Row, OverallCell.Column)
        AWeldsCell.Interior.Color = OverallCell.Interior.Color
        Set LoosePigtailsCell = LoosePigtailsSheet.Cells(OverallCell.Row, OverallCell.Column)
        LoosePigtailsCell.Interior.Color = OverallCell.Interior.Color
        Set TeeDowncomerCell = TeeDowncomerSheet.Cells(OverallCell.Row, OverallCell.Column)
        TeeDowncomerCell.Interior.Color = OverallCell.Interior.Color
        Set HeadersCell = HeadersSheet.Cells(OverallCell.Row, OverallCell.Column)
        HeadersCell.Interior.Color = OverallCell.Interior.Color
    Next OverallCell
End Sub