Thank you. I feel that I am so close! I will do the FSO method. However, I get an error "object not found" at
Code:
Set fo = fso.OpenTextFile(Fname, 1) 'ForReading
Fname is the full path of the text file. I get it through the dialog
Code:
Set f = Application.FileDialog(1)
f.AllowMultiSelect = False
f.Title = "Choose one or more Gaussian Output files"
'f.InitialFileName = ActiveWorkbook.Path
f.Filters.Clear
f.Filters.Add "Gaussian Output Files", "*.txt"
f.InitialView = msoFileDialogViewList
I also enabled the scripting library, so I'm pretty sure that's not my problem.
Thanks again!