How to Save Copies from a Master Workbook - vba

Question

The above picture is a simplified example of what I wish to achieve. Essentially, I need a macro that will go through column A, paste into cell C2, and then save a copy of the workbook. Thus, the end result will be "Type1.xlsm", "Type2.xlsm", etc. At the end of each macro run, the link to the external sheet is broken.
The issue that I am running into is that every time I save a copy of the master workbook, there is no way for the macro to go back to the original workbook. I need some way in which I can recursively call the macro.
Here is what I have so far:
Sub test()
For i = 1 To 5
If Not Range("B" & i).Value = "X" Then
Range("C2").Value = Range("A" & i).Value
Calculate 'updates the formula
Range("B" & i).Value = "X" 'update the check
ActiveWorkbook.SaveAs Filename:=Range("A" & i).Value
ActiveWorkbook.Close
'INSERT CODE TO BREAK THE EXTERNAL LINK
'At this point, how do I refer back to the original workbook?
End If
Next i
End Sub
This is what the output should be:
And an example of what "Type4.xlsm" should be:

Answer 1

I think this should be enough to do it. You can create an object variable pointing to the relevant sheet in the master file (may not be the first). The file containing the code can be referred to as ThisWorkbook.
Sub test()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(1)
For i = 1 To 5
If Not ws.Range("B" & i).Value = "X" Then
ws.Range("C2").Value = ws.Range("A" & i).Value
Calculate 'updates the formula
ws.Range("B" & i).Value = "X" 'update the check
ActiveWorkbook.SaveAs Filename:=ws.Range("A" & i).Value
ActiveWorkbook.Close
'At this point, how do I refer back to the original workbook?
End If
Next i
End Sub

Answer 2

Use SaveCopyAs() method
Sub test()
For i = 1 To 5
If Not Range("B" & i).Value = "X" Then
Range("C2").Value = Range("A" & i).Value
Calculate 'updates the formula
Range("B" & i).Value = "X" 'update the check
ActiveWorkbook.SaveCopyAs Range("A" & i).Value
'At this point, your active workbook and worksheet are still the "original" ones
End If
Next i
End Sub