Hello,

This code:

Sub LinkLooper()

  Dim Cell As Range
  Dim HypLnk As Hyperlink
  Dim Wkb As Workbook
  
    For Each Cell In Range("E7:E11")
      If Cell.Hyperlinks.Count <> 0 Then
         Set HypLnk = Cell.Hyperlinks(1)
         Set Wkb = Workbooks.Open(Filename:=HypLnk.Address)
         Application.Goto Reference:="ROIS"
             Selection.Copy
    Range("B275").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.Cut
    Windows("Fundraiser_ROI.xls").Activate
    Sheets("Fundraiserdata").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown
    Wkb.Close SaveChanges:=False
      End If
    Next Cell
    
End Sub
Opens the first few links fine but then doesn't open the third one saying 'cannot find file' even though when I click the link it opens the file.

Any suggestions?

Cheers.