[Большой Кол]

pva, спасибо идея интерестная. Но дело в том что в книге песколько таких листов и каждый раз колличество разное. Хотя черт его знает, попробывать можно

с утра перепроверил скрипт, немного переписал. Но загвоздка именно в строке
Private Sub Proverka() ' проверяем есть ли рядом с округом слово северо запад
If (Range(marcOfString1).Text Like "[Север]*") Then Nord Else Ocrug ' если есть северо-запад то Nord если нет то Okrug
' если в этой же ячейке содержится север то ..... ' иначе , т.е. если не найден одновременно округ и север....
End Sub

а конкретно, If (Range(marcOfString1).Text Like "[Север]*") Then Nord
сдесь не перехдит в Nord , в чем дело не ясно, может синтаксис не верный, но я уже много вариантов перебрал.