VBA Macro to open all hyperlinks in selected cells

Hi everyone,

I'm new to the forum and I'm seeking for help with a little VBA macro.
My goal is to open all links in the selected cells. They're URLs pointing to different part of my websites.

Warning: I'm learning to code in VBA so this is a newbie request for help.

This is the code:

Please Login or Register  to view this content.

It correctly opens the first link in the selected cells but then it stops with an error in this line of code "ActiveWorkbook.FollowHyperlink a.Value".
What's wrong and why?

Thanks for your help!

Welcome to the Forum Blablolat !

What is the error code and message? What is the value of "a" when this error occurs? Are you sure that it is a valid URL?

When you type a URL into a cell, Excel by default will automatically turn it into a clickable hyperlink. That is almost certainly the case with "plain simple URLs copied from the browser or typed in manually." In this case, the cell has an attribute called Hyperlink that has the URL as the Address attribute. You can see this if you right-click on the cell, then select "Link" from the menu. My point here is that the text in the cell is a separate attribute from the underlying Hyperlink attribute. In fact, they do not have to be the same string. The second bit of code you posted refers to the underlying Hyperlink attribute. That is why it works for typed-in URLs.

When you use the HYPERLINK function to create a link, there is no underlying Hyperlink attribute. It is all done through the formula. If you right-click on the cell, the "Link" option is grayed out. So you can't use Hyperlink.Follow.

None of this explains the error you are getting described in your first post. Are you using the second argument in HYPERLINK to display a "friendly" name for the URL, or do you see the actual URL in the cell? If you are displaying a friendly name, that will be the Value of the cell, and cannot be followed as a link. If not, then I cannot explain why you are getting the error. However, I would advise attaching your file if there is no private data. See yellow banner at the top of the page.

If your question has been answered please mark your thread as "Solved" so that members will know by looking at the thread title that your problem is solved. Go to the menu immediately above your first post to the thread and click on Thread Tools. From the dropdown menu select "Mark this thread as solved..."

If a member helped you solve your problem, consider adding to their reputation by clicking on the star icon addreputationiconsmall.jpg below their name.t was solved.