' {skipped}

    Application.ScreenUpdating = False
    ThisWorkbook.Worksheets("Шаблон РЛ").Visible = True
    With ThisWorkbook.Worksheets("Начисление зарплаты")
        Set c = .Cells( 5 ,  5 )
' {skipped}


    Set ws = Nothing
    Set wb = Nothing
    ThisWorkbook.Worksheets("Шаблон РЛ").Visible = False
    ThisWorkbook.Saved = True
    Application.ScreenUpdating = True
    
End Sub

' {skipped}
    Do While c.Value2 > ""
        Application.ScreenUpdating = True
        Application.StatusBar = "считаю дебет-кедит для: " & c.Value2
        Application.ScreenUpdating = False
        sDep = c.Offset( 0 , - 2 ).Value2
' {skipped}

    Application.StatusBar = "Готово"
    Application.ScreenUpdating = True
    
End Sub