I have a workbook with several rows of array formulas (Rows 181:187) that reference a row of entity numbers (in Row 180). Because I've made updates in other parts of the workbook, I need the entity numbers in Row 180 to be numbers instead of the text values that they currently are. If I manually do text to columns on the individual cells this is fine and solves my problems. But of course I'd prefer to automate this process. I'm including this in a larger macro that I run to update the workbook:

Dim LstCo As Long, i As Long
LstCo = Cells.Find(What:="*", SearchOrder:=xlColumns, SearchDirection:=xlPrevious, LookIn:=xlValues).Column
For i = 1 To LstCo
Rows("180:180").Select
Columns(i).TextToColumns Destination:=Cells(1, i), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Selection.NumberFormat = "General"
Next i

Works great to solve my text to number issue. However, it wipes out all of the {} on the array formulas in rows 181:187 for each column. I'd prefer to fix the problem through this piece of code instead of trying to add array formulas to the macro as they're too long and would need to be split. Any ideas???? Thanks in advance!