S
Steve
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
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