View Single Post
 
Old 12-01-2020, 07:37 AM
gmaxey gmaxey is offline Windows 10 Office 2016
Expert
 
Join Date: May 2010
Location: Brasstown, NC
Posts: 1,436
gmaxey is a jewel in the roughgmaxey is a jewel in the roughgmaxey is a jewel in the roughgmaxey is a jewel in the rough
Default

Code:
        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
__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/
Reply With Quote