Open .TXT file Replace Specific Lines with Cell Values

Please attach a few sample text files and the excel file that has the list of files. It will be easier to help you.

Apologies for not responding earlier, I've been out today. Please find the files and spreadsheet as requested. The file detail is pasted in from another file. I have attached a few sample files. The character I, in line 9, is to replace the character B.

Many thanks

snb, Many thanks for this I will look to testing this a little later this evening. Are you able to code this so that sp(8) looks up the cell value in C3. Regards

snb, once again thanks for your efforts. At present I cannot get this to work - when I step through I get a run-time error 9 Subscript out of range box pop up at the point sp (7) =sn(j, 3)

I think I might have confused things but the cell value of C3 (currently Flat100*10) needs to be written to line 8 of the NC files currently populated with PLT10

Not the cleanest code in the world, but it should be a decent base. I seperated out the file name, just in case you don't actually save the files in Temp. If you do save it in that directory, you can change "C:\Temp\" & Mid(fileName, 8) to just fileName.

Option Explicit
Sub Macro1()

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim i As Integer
Dim origWork As Workbook
Dim txtFile As Workbook
Dim fileName As String

Set origWork = ActiveWorkbook
    For i = 5 To 13
    fileName = Cells(i, 1).Value
   
        Workbooks.OpenText fileName:= _
        "C:\Temp\" & Mid(fileName, 8), Origin:=437, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
        
        Set txtFile = ActiveWorkbook
        Cells(8, 1) = origWork.Sheets(1).Cells(3, 3).Value
        Cells(9, 1) = "I"
        txtFile.Close True
    Next i
    
      Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

J - that's perfect many thanks

J - I spoke to soon. I used the code this morning and it worked great on rows 5-13. But the number of files varies from one day to the next whereas 1 day I might have 2 files and another I could have up to 60 rows. I look at the code and changed it so that it read lines 5-70 but then I get an error message at the point of the last file name. Are you able to adapt this so that it only loops through the number of files I have in the list and then stops. Regards