макрос для всей книги

[strokky]

В книге примерно 150 листов

пытаюсь задать макрос для всей книги, но пока выполняется он только в активном листе.

Sub trr()
'
'
Dim x As String
Dim i As Integer
Dim sh As Worksheet
'Dim j As Integer
For Each sh In Worksheets
x = Mid(Cells(1, 7), 21, 6)
For i = 16 To 250 Step 7
If Not IsEmpty(Cells(8, i)) Then
Cells(1, i) = "приложение" + x
Cells(1, i).HorizontalAlignment = xlRight
Cells(1, i).VerticalAlignment = xlBottom
End If
Next
Next
'If Not IsEmpty(Cells(i, 8)) And IsNumeric(Mid(Cells(i, 8), 3, 2)) Then



End Sub

Подскажите пожалуйста, что не так делаю?

[IgorGO]

x = Mid(sh.Cells(1, 7), 21, 6)
For i = 16 To 250 Step 7
If Not IsEmpty(sh.Cells(8, i)) Then
sh.Cells(1, i) = "приложение" + x
sh.Cells(1, i).HorizontalAlignment = xlRight
sh.Cells(1, i).VerticalAlignment = xlBottom
End If

[strokky]

Спасибо большое! Всё заработало как надо