Default Loop through active columns and save to file

[elmnas]

Hi guys,

I need a script that loop through each active column,
and save a file as xls with the filename from the open document + the name of the first cell in the same column