Open multiple hyperlinks at once with VBA code

I pasted this into module and ran it but it didn't work. Can anybody help me figure how to open all hyperlinks in Excel without having to click each one at a time?