When I ran the below code with a text file above 20 MB from my excel file, I get an Error showing "L = Val(X)" in yellow, and run-time error type mismatch 13 popped up.
First I posted it at https://www.excelforum.com/exc…ext-file.html#post5724130 but more help is required. Thanks in advance. -- Jai
Sub Demo1() W = Application.GetOpenFilename("Text Files,*.txt"): If W = False Then Exit Sub [A1].CurrentRegion.Offset(1).Clear L& = FreeFile Open W For Input As #L W = Split(Input(LOF(L), #L), vbCrLf) Close #L ReDim V(1 To UBound(W), 1) For Each X In W L = Val(X) If X Like L & ". *" Then R& = R& + 1: V(R, 0) = L: V(R, 1) = Split(X, , 2)(1) Else V(R, 1) = V(R, 1) & vbLf & X Next With [A2:B2].Resize(R) .HorizontalAlignment = xlLeft .Value = V End With End Sub