A
AlanN
How would this be changed so that when the macro is run, it prompts the user to click on the cell to start copying in the data?
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(41, 1), Array(82, 1), Array(90, 1), Array(131, 1), _
Array(143, 1), Array(169, 1), Array(191, 1), Array(203, 1), Array(216, 1), Array(238, 1), _
Array(250, 1), Array(262, 1))
TIA, AlanN
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(41, 1), Array(82, 1), Array(90, 1), Array(131, 1), _
Array(143, 1), Array(169, 1), Array(191, 1), Array(203, 1), Array(216, 1), Array(238, 1), _
Array(250, 1), Array(262, 1))
TIA, AlanN