Тема многократно обсуждалась. Поиск работает - вот одна из тем: <BR>http://www.planetaexcel.ru/forum.php?thread_id=27107

последнюю строку лучше так  
hhh = Trim(Stxt)  
что бы убрать лишние пробелы

"[А-яЁё]" : )

{quote}{login=The_Prist}{date=18.09.2011 01:41}{thema=}{post}У Вас в слове "Macлo" литера "а" на английском...{/post}{/quote}  
 
Я только начинаю познавать excel, выше R Dmitry написал код, это макрос его в модуль пихать?)))  
 
нашел еще топик где вы предлагаете код :  
Sub ReplaceSymbols()  
Dim objRegExp As Object, sOlsString As String, sNewString As String  
sOlsString = "Фрукт/ Apple"""" 123="  
Set objRegExp = CreateObject("VBScript.RegExp")  
objRegExp.Global = True: objRegExp.IgnoreCase = True  
objRegExp.Pattern = "["""",\=,,\/, а-я,ё]"
sNewString = objRegExp.Replace(sOlsString, "")  
End Sub  
 
в моем случае он "прокатит"?

Prist, R Dmitry спасибо вам огромное!!!  
Здоровья и удачи вам!  
Респект!

Кстати, тут такой, как мне кажется, интересный момент: слово "Маша". Ф-ция Replace удалит букву "а" на первом проходе, но все равно счетчик будет считать до 4-х. Т.е. по идее 1 холостой проход. А если это предложение? Или текст здоровущий? : )  
 
Function hhh(Stxt$)  
For i = Len(Stxt) To 1 Step -1  
a = Mid(Stxt, i, 1)  
If a Like "[А-яЁё]" Then Stxt = Replace(Stxt, a, "")
Next  
hhh = Stxt  
End Function  
 
уж не знаю, что быстрее, но вот еще один вариант:  
 
Option Compare Binary  
             
Private Function CleanString(ByVal Str$) As String  
Dim i%, x As String * 1  
Do While i < Len(Str)  
   i = i + 1: x = Mid(Str, i, 1)  
   If x Like "[А-яЁё]" Then
       Str = Replace(Str, x, ""): i = i - 1  
   End If  
Loop  
CleanString = Trim(Str)  
End Function  
 
Sub j()  
v = CleanString("Маша")  
End Sub

{quote}{login=The_Prist}{date=18.09.2011 01:41}{thema=}{post}У Вас в слове "Macлo" литера "а" на английском...{/post}{/quote}Если бы только "а" ;) Там ВСЕ буквы английские кроме "л"!  
 
Для удаления лишних слов и русских букв на месте можно использовать такой макрос:  
 
Sub firstik()  
 
Const WORDS = "п/с син" 'список слов для удаления, через пробел  
 
Dim x  
For Each x In Split(WORDS) 'замена слов  
   Selection.Replace x, "", xlPart, , False  
Next  
 
For x = 192 To 223 'замена русских букв кроме Ё  
   Selection.Replace Chr$(x), ""  
Next  
 
Selection.Value = Application.Trim(Selection) 'удаление лишних пробелов  
End Sub

Есть книга, в одном столбце наименования продукции. Как из него удалить русские символы, оставив только латинские.  
 
Например: "Macлo для KПП DRAGON HD GL-5 п/с 75W90 1л" чтобы было "DRAGON HD GL-5 75W90 1"  
 
 
Метод для блондинок: заменить все русские буквы на букву А (например): с помощью ctrl H по очереди заменять по одной букве русского алфавита) а потом удалить все буквы А - также заменой на пусто.