View Single Post
 
Old 03-19-2015, 06:47 AM
gmaxey gmaxey is offline Windows 7 32bit Office 2010 (Version 14.0)
Expert
 
Join Date: May 2010
Location: Brasstown, NC
Posts: 1,421
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

Try modifying as shown:

Code:
  oRow.Cells(1).Range.InsertAfter vbCr & arrList(lngIndex - 1)
      Else
        oRow.Cells(1).Range.InsertAfter vbCr & arrList(lngIndex - 1)
      End If
__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/
Reply With Quote