Lost functionality

[dconn]

We recently lost functionality within one of our workspreadsheets. Our I.T. departments thinks that it may have something todo with a recent Microsoft update and a dated excel macro.

When the macro is working properly it should open a separatereference spreadsheet, copy a range of cells, insert the copied information,and update everything within the spreadsheet with the new information.

Currently when we try to run the macro a warning pops upstating (Some files can contain viruses or otherwise be harmful to yourcomputer. It is important to be certain that this file is from a trustworthysource.) When OK is selected the spreadsheet churns for several min. withoutcompleting the update. Please find the first couple of lines below.

Application.ScreenUpdating = False
    Application.Calculation =xlCalculationManual
    Sheets("SAPW").Visible =True
   Sheets("Sapw").Select
    Application.DisplayAlerts = False
    ActiveWorkbook.FollowHyperlink"File Path",NewWindow:=False
    Sheets("Codes").Select
    Application.DisplayAlerts = True
    Range("A2:D8000").Select
    Selection.Copy
    Application.DisplayAlerts = False
    ActiveWindow.Close
    Application.DisplayAlerts = True
    Range("r703").Select
    ActiveSheet.Paste
    Range("R1:S1").Select
    Selection.Copy
    Range("P703").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.AutoFillDestination:=Range("P703:Q11000"), Type:=xlFillDefault

To date we have tried adding the reference file as a trustedLocation and Document, removed all macros from the reference file, and changingthe location of the reference document on our network. Any help or thoughts would be greatly appreciated.

Thanks!

 

[steve the fish]

See if using this helps:

Workbooks.Open "file path"

 

[dconn]

Thanks "steve the fish"

I swapped the code line ActiveWorkbook.FollowHyperlink"File Path",NewWindow:=False out with Workbooks.Open "file path" , but unfortunately receive the same results. Pop-up followed with churning.

 

[dconn]

**correction**

Thank you steve the fish!

I forgot that we had used the FollowHyperlink command in multiple sections. After updating all of them to workbooks.open the spreadsheets seems to be working properly again.