Имеется книга со множеством листов.
Задача: заменить одни данные в ячейках на другие. Произвести замену на всех листах.
При выполнении макроса (приведен ниже),
замена происходит только на активном листе.
Нет перехода по всем листам. Объясните ошибку.
Sub ()
Dim s As Worksheet
Dim wb As Workbook
Set wb=ActiveWorkbook
For Each s In wb.Worksheets
'далее произвожу все нужные замены, приведу одну
Cells.Replace What:="багаж", Replacement:="baggage", _
MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next
End Sub