Excel Time Saver

CBHJoshD 

Hi,

The following code will work for updating multiple files (although not tested for 200, should work in theory).  You will need to update the sample line of code (between the chevrons) for the location you want to input and the text entry itself.  I would suggest when first running the code, try with maybe just one or two workbooks to make sure it works as needed since changes are saved during the macro, without UNDO option:

Sub Edit_Multiple_Workbooks()
'
' Edit_Multiple_Workbooks Macro
'
'

Application.ScreenUpdating = False
Dim File_Names As Variant
Dim File_count As Integer
Dim Active_File_Name As String
Dim Counter As Integer

File_Names = Application.GetOpenFilename(, , , , True)
Application.DisplayAlerts = False

File_count = UBound(File_Names)
Counter = 1

If Counter < 1 Then
MsgBox ("File not found")
Exit Sub
End If

Do Until Counter > File_count
Active_File_Name = File_Names(Counter)
Workbooks.Open Filename:=Active_File_Name, UpdateLinks:=0
Active_File_Name = ActiveWorkbook.Name

' Your Required Action Goes Between Chevrons >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
' Example:

Sheets(1).Range("A1") = "Sample Entry to Cell A1"

' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Counter = Counter + 1
ActiveWorkbook.Save
ActiveWorkbook.Close

Loop

Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox "All Selected Workbooks Updated"

End Sub