Copy Formula and Formatting to new worksheet

[MrMatthew]

How do I manipulate the code below so I can use multiple worksheets, ranges, and copy ranges? I have several ranges on Sheet2 and Sheet3 I want to mirror (formulas and formatting) to Sheet1 which is summary sheet for the Workbook For example, I need cell A8 in Sheet2 to look just like cell A8 in Sheet1

Right click on the Sheet2 tab, left click on View Code, and paste this into the large white area that is the Sheet2 module:

''''''''''''''''''''''''''''''''''''''''''''

Private Sub Worksheet_Activate()
ActiveSheet.Unprotect ("YourPassword")
Worksheets("Sheet1").Range("A8").Copy Range("A8")
ActiveSheet.Protect ("YourPassword")
End Sub

 

[MrMatthew]

I answered my own question.

Private Sub Worksheet_Activate()
ActiveSheet.Unprotect ("password")
Worksheets("Sheet1").Range("E9:E1603").Copy Range("E9:E1603")
Worksheets("Sheet1").Range("W9:W1603").Copy Range("H9:H1603")
Worksheets("Sheet1").Range("L9:L1603").Copy Range("I9:I1603")
Worksheets("Sheet2").Range("L9:L1603").Copy Range("I9:I1603")
Worksheets("Sheet2").Range("L9:L1603").Copy Range("I9:I1603")
ActiveSheet.Protect ("password")
End Sub