Code wont Run

[test1986]

I have added this code into Excel and it seems to work but it does not actually do anything??

Sub Auto_Update()

With Application.FileSearch
.NewSearch
.LookIn = "M:\forecasts 2007\Forecasts 2007\MD"
.Filename = "*.xls"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles(i), UpdateLinks:=3
ActiveWorkbook.Save
ActiveWindow.Close
'add your code in order to update links and to
'close and save changes
Next i
End If
End With

End Sub

Is there soemthing simple i am not doing??

I want it to look for any .xls files in a certain area of my documents, then update the links, save them, then close and move onto the next file.

I am very incompetent on VB so if you could help me i would really appreciate it.

Thanks

[Mallycat]

Is there soemthing simple i am not doing??

Not that I can tell. This code works fine for me. Are you sure you have the folder structure right?

[stevekirk]

HI
try this it works for me

Please Login or Register  to view this content.

steve

[Carim]

Code is working fine for me too ...
check your files and directory ...

Carim