Insurer threatens to sell shares in 40 businesses unless they tackle climate change