VBA code is not copied over

Hello,

I've written the following code that I use to replace user workbooks with the latest version.  The only problem is any code changes are not being copied over.  For example, if I make a code change in the master workbooks, that change is not being reflected in the user workbooks.

Public Sub ReplaceAllUserWorkbooks()
    ' Comments:
    ' Params  :
    ' Created : 08/16/12 08:48 JV
    ' Modified:
    

    On Error GoTo PROC_ERR
    
    Dim strPathOfSelectedFolder As String
    Dim strFilter As String
    Dim strDestinationPath As String
    Dim strSourcePath As String
    Dim strSilo As String
        
    If Left(ThisWorkbook.Name, 6) <> "EA_IT2" Then
        MsgBox "The Update All Workbooks process is not enabled for this workbook", vbOKOnly, "Macro Disabled"
        Exit Sub
    End If
    
    strPathOfSelectedFolder = Mid(ThisWorkbook.FullName, 1, InStrRev(ThisWorkbook.FullName, "\"))
    'Set wbSource = ThisWorkbook
   'strSourcePath = ThisWorkbook.FullName
    'Replace ProjectID worksheet in each silo workbook with updated projectid worksheet
    strFilter = Dir(strPathOfSelectedFolder) 'change or add formats
    Do While strFilter <> "" 'will start LOOP until all files in folder sPath have been looped through
        strSilo = Left(strFilter, 6)
        Select Case strSilo
            Case "MFS_EA", "WOS_EA", "AFS_EA", "SGP_EA", "TRS_EA", "RES_EA"
                strDestinationPath = strPathOfSelectedFolder & strFilter
                Set wbDestination = ThisWorkbook
                wbDestination.SaveCopyAs strDestinationPath
                
                Call ProtectWorksheetsInWorkbook
                'wbDestination.Close
                'Set wbDestination = Nothing
            Case Else
                'Do Nothing
        End Select
        strFilter = Dir
    Loop ' End of LOOP
    MsgBox "All user JE_Upload workbooks have been update. Backup starting.", vbOKOnly, "Update Complete"
    Call BackupPreviousTemplate

   
PROC_EXIT:
    Exit Sub

PROC_ERR:
    MsgBox Err.Description, vbCritical, "Admin.ReplaceAllUserWorkbooks"
    Resume PROC_EXIT

Select allOpen in new window