ReplaceWhat = "Case "Вулверхэмптон", "Фулхэм", "Кардифф Сити", "Хаддерсфилд Таун""

Sub ПсП()
Dim book1 As Workbook
Dim book2 As Workbook

Dim VBAEditor As VBIDE.VBE
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As VBIDE.CodeModule
Dim ReplaceWhat As String
Dim t As Long, i As Long, m As Long, n As Long


    For t = 54 To 56
        Set VBAEditor = Application.VBE
        Set book1 = Workbooks.Open("...\" & t & ".xlsm")
        Set VBProj = book1.VBProject
        Set VBComp = VBProj.VBComponents("Module1")
        Set CodeMod = VBComp.CodeModule
        
        ReplaceWhat = "Case "Вулверхэмптон", "Фулхэм", "Кардифф Сити", "Хаддерсфилд Таун""
        CodeMod.ReplaceLine 93, ReplaceWhat
            
        Application.Calculate
        book1.Save
        book1.Close
        
        Set VBAEditor = Nothing
        Set VBProj = Nothing
        Set VBComp = Nothing
        Set CodeMod = Nothing
    Next t
End Sub