Good Day,

I have a workbook that copies all relevant data from 12 sheets to 1 main sheet.

This data is used purely for reference.

The Code is as follow:

Private Sub Worksheet_Activate()
Dim Sheet As Worksheet

For Each Sheet In Me.Parent.Sheets
    If Sheet.Name <> Me.Name Then
        If Sheet.Cells(Rows.Count, 1).End(xlUp).Row <> 1 Then
            Sheet.Range(Sheet.Cells(2, 1), Sheet.Cells(Sheet.Cells(Rows.Count, 1).End(xlUp).Row, 33)).Copy Destination:=Me.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        End If
    Else
        Me.Range(Cells(2, 1), Cells(Rows.Count, 33)).Clear
    End If
Next Sheet
End Sub
It is shared by 13 different people on a Macro enabled sheet just incase you are wondering.

The problem I am having, is that it copies and applies the conditional formating rules of each sheet to the main sheet. This drastically increases my workbook size every time someone opens the main sheet. In 2 days of activity the size of the excel workbook has increased from 2.8mb to a whopping 97 mb. I have tested the sheet for ghosting, and applied formatting to used cells only in the multiple sheets. The problem is truly the conditional formatting to the main sheet.

Is it possible to remove the ability to copy the conditional formatting. Thus removing the problem I am having?

Can my code be adjusted to do this?

Thanking you in advance.

JEDEMEYER1