updating links in command

[khalid79m]

Sub gg()

'Clear Old Data on Sheets
Run "Delete"

            'THIS IS THE MAIN CODE FOR SETTING UP THE ROTA
        
            'This is the variables set for the script (the month must be changed each month).
                Dim i As Integer, wb As Workbook
                With Application.FileSearch
                .NewSearch
                .LookIn = "P:\CET - gggement\ggr\December 2007\Sprreets\"
                .SearchSubFolders = True
                .Filename = "*.xls"
                .Execute
                For i = 1 To .FoundFiles.Count

            'Open each workbook
               Set wb = Workbooks.Open(Filename:=.FoundFiles(i))
            
                Run "Sourcing1"
                Run "Gather"
            
            'Save and close the workbook
            
                wb.Close savechanges:=True
            
            'On to the next workbook
            
            Next i
            End With

'Format
Run "Formatting"
'Deartment Split
Run "Splitter"
Run "StatusBar"

End Sub

how do i get it not update the links when it opens the files , any help please

[timbo1957]

Does this help?

Sub OpenDontUpdate()
Workbooks.Open FileNmae:= _
"C:\My Documents\MyFile.xls", UpdateLinks:=xlUpdateLinksNever
End Sub