Close all Hyperlinked Files

[Prasad K]

Hi Excel Friends

How to close all opened hyperlinked files by vba code here i have applied this below vba it's not working

and one more if i close excel workbook then close all opened hyperlinked files automatically

Sub CloseHyperLinks()
    Dim xHyperlink As Hyperlink
    Dim WorkRng As Range
    On Error Resume Next
    Set WorkRng = Range("A2:A5")
    For Each xHyperlink In WorkRng.Hyperlinks
        xHyperlink.Close
        xHyperlink.Quit
    Next
End Sub

 

[OaklandJim]

Are files that are opened using hyperlinks Excel files or other types?

 

[Prasad K]

Are files that are opened using hyperlinks Excel files or other types?

Are files that are opened using hyperlinks Excel files or other types?

Some files are Excel some are different like word files and notepad files

 

[OaklandJim]

I presume these were opened using links in an Excel workbook?

 

[Prasad K]

I presume these were opened using links in an Excel workbook?

Yes sir
hyperlinks files are opened by excel workbook in range A2 to A5 here what i want if i run vba macro then all opened hyperlinks files should be close at once & one more if i close my excel workbook then all opened files should be close automatically