{quote}{login=TerraMorf}{date=18.02.2011 12:11}{thema=Сравнение текста в ячейки с названием листа}{post}Добрый день!  
Подскажите каким образом в VBA можно задать условие для сравнения текста в ячейке одного листа с названием другого?  
Текст в ячейке - 56-43 АА АЕ гр  
Название листа - 56-43  
 
Также встречаються варианты:  
Текст в ячейке - 256-43 АА гр  
Название листа - 256-43  
 
Это условие мне нужно использовать в конструкции IF - THEN  
 
Зарание спасибо{/post}{/quote}  
 
Dim MyStr as string  
MyStr = Left(Worksheets("лист1").Range("A1").Value, Len(InStr(Worksheets("лист1").Range("A1").Value, " ")-1)  
If MyStr = Worksheets("лист1").Name Then  
MsgBox "Все пропало, шеф! Все пропало!"  
End If  
 
как-то так?

{quote}{login=Юрий М}{date=18.02.2011 12:18}{thema=}{post}Вам нужно точное совпадение и вхождение (частичное)?  
"для сравнения текста в ячейке одного листа с названием другого"  
Сравнивать текст в ячейке одного листа с НАЗВАНИЕМ другого листа?{/post}{/quote}  
 
Сравнение по вхождению названия листа в текст ячейки

По вхождению - тогда так например:  
 
If InStr(Cells(1, 1).Value, Sheets(1).Name) > 0 Then MsgBox 1