Shire's strong earnings outlook sends shares to new high