View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
J.W. Aldridge J.W. Aldridge is offline
external usenet poster
 
Posts: 425
Default paste range from one sheet to each sheet after

Doesn't work....
Any clues?

Sub Macro1()
'
'copy range from template sheet
Sheets("Ind Templates").Select
Rows("38:50").Select
Selection.Copy

'for each sheet in workbook after "ind templates"
x = Sheets("Ind templates").Index
For Each Sh In ThisWorkbook.Sheets
If Sh.Index x Then

'paste the copied data 1row below the last row used
Range("A365").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.Paste


End If
Next

End Sub