For j = 2 To 7 With .Cell(i, j).Range.ContentControls(1) .LockContents = False .Range.Text = Split(StrTmp, ",")(j - 2) .LockContents = True End With Next