WHER,
Very nicely done.
I see you added an addition column in worksheet Formatted Table, column S for fax.
Now, I need to study the code to see how it opperates.
I made a slight change to one line of your code so that the data in worksheet Formatted Table starts in row 2, the first blank/available row:
I changed this next line of code:
Cells(i + 3, jj) = Replace(Replace(Split(sn(i), "|")(j), "<" & Cells(1, jj).Text & ">", ""), "</" & Cells(1, jj).Text & ">", "")
To this:
Cells(i + 2, jj) = Replace(Replace(Split(sn(i), "|")(j), "<" & Cells(1, jj).Text & ">", ""), "</" & Cells(1, jj).Text & ">", "")
Thanks again - one for my archives.
Bookmarks