OssieMac

I created an external loop for the rows but it doesn't reset "strInitial" it
just shows the first one as many times as rows in the loop. Any suggestions?

'For testing only
For N = 2 To 3 'rows
For i = 0 To UBound(myArray)
If myArray(i) 0 Then
'Concatenate array values with column values to create a range for the
replacement string
strToReplace = "[" & myArray(i) & "]" 'Create string to be replaced from
array value
strRange = myArray(i) & N 'column and row
strReplacement = Range(strRange) 'Create the replacement string
'Replace existing string with replacment string
strInitial = Replace(strInitial, strToReplace, strReplacement, 1, 1) 'not
looping thru row
Else
i = UBound(myArray)
End If
Next i
MsgBox strInitial 'MsgBox displays the new string
Next N