Замена сова в предложении

[amadeus017]

Доброго времени суток, уважаемые пользователи данного форума!
Обращаюсь к вам, в силу того, что макросы писать не умею, а с задачей нужно справиться, которая заключается в следующем:
Есть папка, в которой множество файлов Excel, текст которых содержат наименование организации ОАО "Рапунсель", (это слово не отдельно в ячейке, а в части предложения), которое следует заменить на ООО "Рапунсель" (поменялась право собственности).
Нашел макрос, который позволяет файлы в определенной папке, в ячейке A1, вставить значение, а мне нужно одно словосочетание, заменить на другое, причем это словосочетание (ОАО "Рапунсель"), находится в части предложения.

Sub Get_All_File_from_Folder()
Dim sFolder As String, sFiles As String
'диалог запроса выбора папки с файлами
With Application.FileDialog(msoFileDialo gFolderPicker)
If .Show = False Then Exit Sub
sFolder = .SelectedItems(1)
End With
sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
'отключаем обновление экрана, чтобы наши действия не мелькали
Application.ScreenUpdating = False
sFiles = Dir(sFolder & "*.xls*")
Do While sFiles <> ""
'открываем книгу
Workbooks.Open sFolder & sFiles
'действия с файлом
'Запишем на первый лист книги в ячейку А1 - www.excel-vba.ru
ActiveWorkbook.Sheets(1).Range("A1" ).Value = "www.excel-vba.ru"
'Закрываем книгу с сохранением изменений
ActiveWorkbook.Close True 'если поставить False - книга будет закрыта без сохранения
sFiles = Dir
Loop
'возвращаем ранее отключенное обновление экрана
Application.ScreenUpdating = True
End Sub

[IgorGO]

сделайте замену вручную
запишите действия макрорекордером
вставьте франмент полученного макроса в свой код

[amadeus017]

Хорошо, попробую так и сделать. Большое спасибо!