[Iska]

Можно. Проверка будет вместо текущей: «If StrComp(Left(objRange.Cells.Item(1, 2).Value, Len("Цех №")), "Цех №", vbTextCompare) = 0 Then» или как?

Самым правильным будет выложить образец документа в момент готовности применения макроса.