1

Both of my subs have recently stopped working out of the blue. This first function copies the contents of a .txt file, sorts them, and sends them to the appropriate tables., and I've no idea why it stopped working.

I can't seem to resolve the Issue since i use the code snippet from this sub multiple times and it works fine.. Code here `

' Objective: Read txt files and extract information 

    
    For Each wksImport In wkbImbarq.Worksheets
            If StrComp(Left(wksImport.Name, 1), "R", vbBinaryCompare) = 0 Then
                With tblDataBody
                
                    .gsInitializeWithValues wkbImbarq.Name, wksImport.Name, wksImport.Name & ".tbl"
                    .gsDeleteTableContent
                    .gsDeleteTableHeaderContent
                End With
                Set tblDataBody = Nothing
            End If
    Next wksImport
   

`

0 Answers0