I have a piece of VBA code which take different ranges from one worksheet and pasting this in to a shape on another worksheet. My problem is that some of the ranges that I paste into the shape has to keep the source formatting - in this case the bold font type.
Does anyone know how to keep the source formatting to make sure that the ranges that need to be bold remain bold when pasting?
In the below code i have highlighted which ranges I want to be bold:
Private Sub CopySparring(ShtSrc As Worksheet, ShtDst As Worksheet) Dim shp As Shape With ShtSrc ShtDst.Shapes("Sparring").TextFrame.Characters.Text = _ Range("Strength") & Chr(13) _ & .Range("Sparring_Str") & Chr(13) & Chr(13) _ & .Range("Devel") & Chr(13) _ & .Range("Sparring_Dev") & Chr(13) & Chr(13) _ & .Range("Overall_Eva") & Chr(13) _ & .Range("Overall_feedback") End With Set shp = ShtDst.Shapes("Sparring") ChangeFont shp End Sub