VBA Code Stopped Working

[purceld2]

The VBA code below has been working fine no issues and today it stopped working I have tried everything can cannot get it to work.

Basically I select a range of hyperlinks and it then goes to Chrome and opens a tab

Sub OpenHyperLinks()
'Update 20141124
    Dim xHyperlink As Hyperlink
    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 xHyperlink In WorkRng.Hyperlinks
        xHyperlink.Follow
    Next
End Sub

Just to add If I clink on a single Hyperlink it opens the Youtube as expected but when using the above VBA code it display the box with the range and when ok clicked it does nothing.

Thank you in advance for any help

Rare grooves & modern soul flavours Listing REMOVED This One.xlsm
	A	B
1	Title	Link
2	Mirage - There Is A Love For Everyone (1978) LPPrincess Of Love RCA Victor	https://www.youtube.com/results?search_query=Mirage+-+There+Is+A+Love+For+Everyone+(1978)+LPPrincess+Of+Love++RCA+Victor
3	The Stylistics - Smooth (1978) LPIn Fashion Mercury	https://www.youtube.com/results?search_query=The+Stylistics+-+Smooth+(1978)+LPIn+Fashion++Mercury
4	Rockie Robbins - Girl I’m Gonna Get You (1980) LPYou And Me A&M	https://www.youtube.com/results?search_query=Rockie+Robbins+-+Girl+I’m+Gonna+Get+You+(1980)+LPYou+And+Me++A%26M
5	Oscar Perry - Playboy Side Of Town (1978) LPMoods Of The Man Crazy Cajun	https://www.youtube.com/results?search_query=Oscar+Perry+-+Playboy+Side+Of+Town+(1978)+LPMoods+Of+The+Man++Crazy+Cajun
6	Gloria Covington - Sweet Love Affair (1980) LPMovin' On Casablanca	https://www.youtube.com/results?search_query=Gloria+Covington+-+Sweet+Love+Affair+(1980)+LPMovin'+On++Casablanca
7	Intrepids - After You’ve Had Your Fling (Get Down To The Real Thing) (1975) Columbia	https://www.youtube.com/results?search_query=Intrepids+-+After+You’ve+Had+Your+Fling+(Get+Down+To+The+Real+Thing)+(1975)++Columbia
8	Willie Fisher - Put Your Lovin’ On Me (1975) Tigress	https://www.youtube.com/results?search_query=Willie+Fisher+-+Put+Your+Lovin’+On+Me+(1975)++Tigress
9	Garland Green - Let Me Be Your Pacifier (1977) LPLove Is What We Came Here For Uni	https://www.youtube.com/results?search_query=Garland+Green+-+Let+Me+Be+Your+Pacifier+(1977)+LPLove+Is+What+We+Came+Here+For++Uni
10	Millie Jackson - You Can’t Stand The Thought Of Another Me (1975) LPStill Caught Up Polydor	https://www.youtube.com/results?search_query=Millie+Jackson+-+You+Can’t+Stand+The+Thought+Of+Another+Me+(1975)+LPStill+Caught+Up++Polydor
11	Carolyn Franklin - You Can Have My Soul (1976) LPIf You Want Me RCA Victor	https://www.youtube.com/results?search_query=Carolyn+Franklin+-+You+Can+Have+My+Soul+(1976)+LPIf+You+Want+Me++RCA+Victor
12	3rd Flight - Love Love Love (1972) Yodi	https://www.youtube.com/results?search_query=3rd+Flight+-+Love+Love+Love+(1972)++Yodi
13	Rare Function - Baby I’m For Real (1976) Soul Unlimited	https://www.youtube.com/results?search_query=Rare+Function+-+Baby+I’m+For+Real+(1976)++Soul+Unlimited
14	Milton Floyd - I’m A Shadow (1973) Rim	https://www.youtube.com/results?search_query=Milton+Floyd+-+I’m+A+Shadow+(1973)++Rim
15	Linda Jones - Not On The Outside (1972) Turbo	https://www.youtube.com/results?search_query=Linda+Jones+-+Not+On+The+Outside+(1972)++Turbo
16	Billy Cee - Don’t Matter To Me (1974) GSE	https://www.youtube.com/results?search_query=Billy+Cee+-+Don’t+Matter+To+Me+(1974)++GSE
17	The Two Things In One - Together Forever (1973) Music City	https://www.youtube.com/results?search_query=The+Two+Things+In+One+-+Together+Forever+(1973)++Music+City
18	Dorando - Didn’t I (1972) Music City	https://www.youtube.com/results?search_query=Dorando+-+Didn’t+I+(1972)++Music+City
19	Side Effect - Spend It On Love (1973) LPEffective Passion Music Ltd	https://www.youtube.com/results?search_query=Side+Effect+-+Spend+It+On+Love+(1973)+LPEffective++Passion+Music+Ltd
20	Strutt - Said You Didn’t Love Him (1976) LPTime Moves On Brunswick	https://www.youtube.com/results?search_query=Strutt+-+Said+You+Didn’t+Love+Him+(1976)+LPTime+Moves+On++Brunswick
21	The Voices Of East Harlem - Take A Stand (1974) LPCan You Feel It Just Sunshine	https://www.youtube.com/results?search_query=The+Voices+Of+East+Harlem+-+Take+A+Stand+(1974)+LPCan+You+Feel+It++Just+Sunshine
List of Music

Cell Formulas
Range	Formula
B2:B21	B2	=HYPERLINK(CONCATENATE("https://www.youtube.com/results?search_query=",SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2," ","+"),"&","%26"),"[","%5B"),":","%3A"),"]","%5D")))

 

[Alex Blakenburg]

Firstly thank you for providing some valid Test Data, it makes a huge difference in us being able to help you.

A solution to this was posted by @lrobbo314 in March 2020 here and which I have used to modify your code below:
HYPERLINK() function not working with VBA .Follow
Although the OP in that case seemed to still have some issues with it, it works fine on your data.

Your revised code looks like the below:
VBA was not recognising the formula generated hyperlinks as a hyperlinks and Selection.Hyperlinks.count returned 0.

Sub OpenHyperLinks_Mod()
'Update 20141124
    Dim xHyperlink As Hyperlink     ' Not required
    Dim WorkRng As Range
    Dim xTitleId As String
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    
    ' Courtesy of lrobbo314 13/03/2020
    Dim rCell As Range
    For Each rCell In WorkRng.Cells
        ActiveWorkbook.FollowHyperlink rCell.Value
    Next
End Sub