Maggie Barr
Board Regular
- Joined
- Jan 28, 2014
- Messages
- 188
Hello and thank you in advance if you can help,
I am using excel 2019 64 bit on a PC.
I have a VBA macro that I have used to create hyperlinks in the past. It has always worked fine, and it "sort of" is working now, but it is not keeping the absolute hyperlink I need, so it will not open the full link now. I do not know if there was an update in the MS software that is now making not work, but it always worked before. When I paste the sheet into Google sheets, it opens up the full link. As well, when I copy the cell contents and paste it into Google Chrome, it opens it fine. I even tried adding in the www. like it used to be, to no avail. I have searched online, and tried MANY things, but none of the solutions are helping. It seems foolish that it doesn't work now. If anyone could please help me get excel to recognize and open the whole link (absolute hyperlink) in the document, I would appreciate it. This file is getting sent to, and shared with, others, so it needs to be independent within the workbook and subsequent copies. The VBA I have always used is below.
Any help or advice would be greatly appreciated.
Thank you and best wishes,
Maggie
Sub ConvertToHyperlinks()
'Updateby20140318
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub
I am using excel 2019 64 bit on a PC.
I have a VBA macro that I have used to create hyperlinks in the past. It has always worked fine, and it "sort of" is working now, but it is not keeping the absolute hyperlink I need, so it will not open the full link now. I do not know if there was an update in the MS software that is now making not work, but it always worked before. When I paste the sheet into Google sheets, it opens up the full link. As well, when I copy the cell contents and paste it into Google Chrome, it opens it fine. I even tried adding in the www. like it used to be, to no avail. I have searched online, and tried MANY things, but none of the solutions are helping. It seems foolish that it doesn't work now. If anyone could please help me get excel to recognize and open the whole link (absolute hyperlink) in the document, I would appreciate it. This file is getting sent to, and shared with, others, so it needs to be independent within the workbook and subsequent copies. The VBA I have always used is below.
Any help or advice would be greatly appreciated.
Thank you and best wishes,
Maggie
Sub ConvertToHyperlinks()
'Updateby20140318
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub