copy paste a range to multiple worksheets

[LFKim2018]

I would like to copy range("C1:C16") in Sheets("summary") and paste it to the rest of worksheets on range("E3")
..excluding Sheets("summary")
how do I write the subroutine code?
many many thanks

 

[Osvaldo Palmeiro]

Hi. Try this:

Sub ReplicateData()
 Dim ws As Worksheet
  For Each ws In ThisWorkbook.Worksheets
   If ws.Name <> "summary" Then ws.[E3].Resize(16).Value = Sheets("summary").[C1:C16].Value
  Next ws
End Sub

 

[LFKim2018]

Mr. Palmeiro

It worked perfectly!
thank you very much..