Hello nosstech,
You made need to change some variables in this macro before it will run correctly. You will need to add the folder location where the workbooks are stored. Check the name of the worksheet "Sheet1". I entered it as "Sheet1" rather than "Sheet 1" as you had it. These are marked in red.
Macro Code
Sub UpdateAllWorkbooks()
Dim MyFolder As String
Dim SrcWks As Worksheet
Dim Wkb As Workbook
Dim WkbName As String
Set SrcWks = ThisWorkbook.Worksheets("Coaching Form")
MyFolder = "C:\Documents and Settings\Admin.ADMINS\My Documents"
WkbName = Dir(MyFolder & "\*.xls")
Do While WkbName <> ""
Set Wkb = Workbooks.Open(WkbName)
SrcWks.Copy Before:=Wkb.Worksheets("Sheet1")
Wkb.Close SaveChanges:=True
WkbName = Dir()
Loop
End Sub
Adding the Macro
1. Copy the macro above pressing the keys CTRL+C
2. Open your workbook
3. Press the keys ALT+F11 to open the Visual Basic Editor
4. Press the keys ALT+I to activate the Insert menu
5. Press M to insert a Standard Module
6. Paste the code by pressing the keys CTRL+V
7. Make any custom changes to the macro if needed at this time.
8. Save the Macro by pressing the keys CTRL+S
9. Press the keys ALT+Q to exit the Editor, and return to Excel.
To Run the Macro...
To run the macro from Excel, open the workbook, and press ALT+F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.
Sincerely,
Leith Ross
Bookmarks