Macro attempt. Comments welcome

Thanks Frank