Personal Macro Not Looping in Different Workbooks - excel

Question

My problem is looping through several worksheets in a workbook.
I need to save the macro in my personal workbook, but if I do this, it loops through the same worksheet until it reaches the sheet count.
If I move the code to the current workbook, it works beautifully. I have investigated writing a macro to copy the module from personal workbook to the current workbook, but for other users this module will simply be saved in another workbook that is only open in the background to run the module.
How do I get this to loop through all worksheets in another workbook, when the code is saved to a module in my personal workbook, or simply saved in another workbook that is open in the background?
Code below:
Sub WorksheetLoop()
' Loop Through Worksheets, Add Totals
Dim LastRow As Long
Dim ws As Worksheet
Dim starting_ws As Worksheet
Set starting_ws = ActiveSheet
' Loop Sum Formula Through All Worksheets
For Each ws In ThisWorkbook.Worksheets
ws.Activate
'Now my code, the do something, (I have simplified this part since this _
works, its the loop that's broken)
'Insert new blank rows
Rows("1:6").Select
Selection.Insert Shift:=xlDown
'Got to next worksheet, but it will not!
Next
End Sub

Answer 1

This code has a bit different logic, but try it if it works:
Sub WorksheetLoop()
' Loop Through Worksheets, Add Totals
Dim LastRow As Long
Dim ws As Worksheet
Dim starting_ws As Worksheet
Dim path As String
Dim WorkingFile As Workbook
' Select the file you will manipulate to surely be in the correct WB.
path = Application.GetOpenFilename(FileFilter:="Excel Files (*.*), *.*", Title:="Please select a file you want to modify")
Workbooks.Open path
Set WorkingFile = ActiveWorkbook
For Each ws In WorkingFile.Worksheets
ws.Rows("1:6").Insert Shift:=xlDown
'Rest of the code
Next
End Sub

Answer 2

Here is the working code, Now to compare it to what was originally posted code.
Thanks again Vinnie and Gordon!
Sub Step_3_Add_Subtotals()
' Loop Through Worksheets, Add Totals
Dim LastRow As Long
Dim ws As Worksheet
Dim starting_ws As Worksheet
Set starting_ws = ActiveSheet
' Loop Sum Formula Through All Worksheets
For Each ws In ActiveWorkbook.Worksheets
ws.Activate
'Now my code, the do something
'Insert new blank rows
Rows("1:6").Select
Selection.Insert Shift:=xlDown
'Copy current headers, paste them in K3:Q3
Range("K7:Q7").Select
Selection.Copy
Range("K3").Select
ActiveSheet.Paste
'Got to next worksheet, and now it does!
Next
starting_ws.Activate
End Sub