VBA code to write worksheet calues to a CSV