I am looking to write a macro that will open, save & close each file in a
specific directory when run (code below I used from some previous help I
received). Probably more complicate than I need. I just want to open each
file, wait for it to update, and then save & close and go to the next file
til all 100 or so are done.

Sub UpdateTheData()
Dim basebook As Workbook
Dim mybook As Workbook
Dim FNames As String
Dim MyPath As String
Dim SaveDriveDir As String

SaveDriveDir = "\\Lkg0fc976\DISK 1\DianeTest\"
MyPath = "\\Lkg0fc976\DISK 1\DianeTest\"
ChDrive MyPath
ChDir MyPath
FNames = Dir("*.xls")
If Len(FNames) = 0 Then
MsgBox "No files in the Directory"
ChDrive SaveDriveDir
ChDir SaveDriveDir
Exit Sub
End If
Application.ScreenUpdating = True
Set basebook = ThisWorkbook
Do While FNames <> ""
Set mybook = Workbooks.Open(FNames)
DoEvents
mybook.Close True
FNames = Dir()
Loop
ChDrive SaveDriveDir
ChDir SaveDriveDir
Application.ScreenUpdating = True
End Sub

Thank you.
Regards,
Diane