loop smt

'Paste quotes in text boxes

Dim i As Integer

For i = 1 To 8
    myVal = Range("Quote" & i).Value
    ActiveSheet.Shapes.Range(Array("TextBox " & i)).Select
        Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _
            myVal
Next i