Try it another way ...

Sub MonNotes()
dim source as range
Height = 24
For cnt = 0 To 19
set source = worksheets("Template").Range("P9:T10")
with source
worksheets("Report").Range("Mon1").Offset(cnt *
Height).resize( .rows.count, .columns.count).Value = .Value
End With
Next
End Sub

"Steve" wrote in message
...
Following macro pastes code from a merged range in template to a series of
merged cells 24 rows apart. Code creates text string of varying length
depending on cells adjacent to each cell selection. Then copy and paste
values to turn code in the selection cell into pure text string. But
string
has leading apostrophe that doesn't display but is included when we want
to
copy the resultant string to another application. How to get rid of the
leading apostrophe using this macro?

Sub MonNotes()
Height = 24
For cnt = 0 To 19
Range("Template!P9:T10").Copy
Range("Report!Mon1").Offset(cnt * Height).Select
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Next
End Sub