TextToColumns fails in macro

Hi folks,
I'm relativitily new to macro coding so please be excuse me if I don't commuicate correctly. I have a macro that I want to loop thru several sheets in a workbook. I need to reformat a column into several columns for further processing. I am trying to use TextToColumns to get the results. If I create a macro and run it individually on each sheet it works. But when I add and modify the code to a looping macro, I get a failure:

Run-time error'1004'
TextToColumns method of Range class failed

Here is the complete macro:

Please Login or Register  to view this content.

Any thoughts or assistance would be greatly appreciated.
TIA