open , save & close multiple hyperlinks VBA

[bkay25]

Hi ,

I'm trying to create a VBA code to open , save ( in the same location it is currently saved ) and close a number of files which are all interlinked. This is to help save me time when it comes to refreshing data.

I want to put all the hyperlinks in Column A , and i have tried recording the following macro and then playing around with it so that it opens any links from A9:A200. I currently might only have 50 files to open , but i want to be able to add additional links in the future if needed.

The code currently is :

Sub OSC()
'
' OSC Macro
' Open save and close
'

'
Range("A9:A50").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWorkbook.Save
ActiveWindow.Close

End Sub

however this only opens and saves the 1st hyperlink.

Any help here would be greatly appreciated.

[vidhyakrr]

Here, For Loop can be added to do this for all the links in the selection and updated code as below

Please Login or Register  to view this content.

Thanks & Regards,
Vidhya

[Chris_Chui]

Thanks Vidhyakrr, this helped me much.
I've had the same problem.

in my colums are all the hyperlinks of the workbook, but not in each row is a Hyperlink...
in some rows is the same hyperlink as before...

is it possible to open each "different" hyperlink only once?

This is my code:

Private Sub test_Click()
Range("D6:D356").Select
For Each Cell In Selection
Cell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.Wait (Now + TimeValue("00:00:02"))
ActiveWorkbook.Save
ActiveWindow.Close
Next Cell

End Sub

the loop, doesn't work, either. It debugs at the red-highlited line.
Can someone help me with this?

Thanks
Chris_Chui

[Chris_Chui]

Hi all,

anybody an idea?
Hopefully...cause I'll need to solve the problem within the next week.

Thanks so much
Chris_Chui