Помогите найти ошибку в скрипте

[TimeStopper]

Вроде бы раньше работало, но сейчас не пашет. Может потому что перешел на новый офис, а может я что-то все таки путаю.

' проставляем Н и В
For i = 3 To lRow Step 2
        If InStr(1, Sheets(Sh.Name).Cells(i, 6), "/") <> 0 And InStr(1, Sheets(CInt(Sh.Name) + 1).Cells(i, 6), "/") <> 0 Then
            Sheets(Sh.Name).Cells(i, 12) = "В"
            Sheets(CInt(Sh.Name) + 1).Cells(i, 11) = "Н"
        Else
            Sheets(Sh.Name).Cells(i, 12) = ""
            Sheets(CInt(Sh.Name) + 1).Cells(i, 11) = ""
        End If
    Next

Если коротко:
1. На страницах Х и Х+1 в определённой строке проверяется наличие знака "/".
2. Если условие выполняется на обоих страницах, то на странице Х+1, надо в определенной ячейке проставить знак "Н", а на странице X надо проставить знак "В".

Сейчас происходит следующее: если на странице есть "/", то на ней же он проставляет и "Н" и "В". Я так понимаю, что ошибка где то в Sheets(CInt(Sh.Name) + 1) ?

[Step_UA]

если ранее работало, то наименования листов состояли из последовательных номеров ...

Sh.Next.Cells(i, 6) ...  ' вместо Sheets(CInt(Sh.Name) + 1).Cells(i, 6)

[TimeStopper]

Дело в том, что есть набор рабочих листов у которых названия: 1, 2, 3...а есть доп. листы, их не надо обрабатывать.

[Step_UA]

Тогда перед обращением преобразовывайте в строку:

Sheets(CStr(CInt(Sh.Name) + 1))...

[TimeStopper]

Спасибо заработало!