Не за что

Попробуйте так  
 
Sub RightholderSearch()  
'поиск Правообладателя на листе 7172  
Dim iBazaSht As Worksheet, ActSht As Worksheet, iLastRow As Long, iFoundRng As Range, iRow As Long  
 
   Set iBazaSht = Worksheets("7172")  
   Set ActSht = ActiveSheet  
   'определяем последнюю строку на активном листе в столбце В  
   iLastRow = Cells(Rows.Count, "B").End(xlUp).Row  
   'отключаем обновление экрана - макрос будет работать быстрее  
   Application.ScreenUpdating = False  
   'цикл со 2-й строки до последней  
   For iRow = 2 To iLastRow  
       'если ячейка не пуста, то будем искать  
       If ActSht.Cells(iRow, "B") <> "" Then  
           'поиск по второму столбцу на листе 7172  
           With iBazaSht.Columns(2)  
               'сам процесс поиска, с аргументом "Ячейка целиком", иначе замените xlWhole на xlPart  
               Set iFoundRng = .Find(ActSht.Cells(iRow, "B"), , xlFormulas, xlWhole)  
               'если нашли, то копируем название правообладателя на наш лист  
               If Not iFoundRng Is Nothing Then  
                   'если название фильма написано красным цветом, то удаляем всю строку из базы  
                   If iFoundRng.Font.ColorIndex = 3 Then  
                       iFoundRng.EntireRow.Delete  
                   Else  
                       'если не красным, то переносим Правообладателя  
                       ActSht.Cells(iRow, "D") = iFoundRng.Offset(, 1)  
                   End If  
               End If  
           End With  
       End If  
   Next iRow  
   MsgBox "Конец", vbInformation, "Конец"  
End Sub

Пришёл, домой, у меня тут Windows 7. Тут другая ветка реестра. Нужно так  
 
'Windows 7  
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszName As String, ByVal dwFlags As Long) As Long  
 
Sub PlayCritialStopSound()  
Dim WshShell As Object, iRegKey As String  
   Set WshShell = CreateObject("WScript.Shell")  
   iRegKey = "HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\SystemHand\.Default\"  
   Call sndPlaySound(Replace(WshShell.RegRead(iRegKey), "%SystemRoot%", Environ("WinDir")), 1)  
End Sub

Вроде, они одинаковы  
 
   MsgBox Environ("SystemRoot")  
   MsgBox Environ("WinDir")  
 
SystemRoot - 22-й индекс Environ, а windir - 30-й  
 
Разницы не нашёл )

Вот, попробуйте  
 
Этот макрос нужно запускать на том листе, куда нужно вставлять данные, т.е. Лист2  
 
 
Sub RightholderSearch()  
'поиск Правообладателя на листе 7172  
Dim iBazaSht As Worksheet, ActSht As Worksheet, iLastRow As Long, iFoundRng As Range, iRow As Long  
 
   Set iBazaSht = Worksheets("7172")  
   Set ActSht = ActiveSheet  
   'определяем последнюю строку на активном листе в столбце В  
   iLastRow = Cells(Rows.Count, "B").End(xlUp).Row  
   'отключаем обновление экрана - макрос будет работать быстрее  
   Application.ScreenUpdating = False  
   'цикл со 2-й строки до последней  
   For iRow = 2 To iLastRow  
       'если ячейка не пуста, то будем искать  
       If ActSht.Cells(iRow, "B") <> "" Then  
           'поиск по второму столбцу на листе 7172  
           With iBazaSht.Columns(2)  
               'сам процесс поиска, с аргументом "Ячейка целиком", иначе замените xlWhole на xlPart  
               Set iFoundRng = .Find(ActSht.Cells(iRow, "B"), , xlFormulas, xlWhole)  
               'если нашли, то копируем название правообладателя на наш лист  
               If Not iFoundRng Is Nothing Then  
                   ActSht.Cells(iRow, "D") = iFoundRng.Offset(, 1)  
               End If  
           End With  
       End If  
   Next iRow  
   MsgBox "Конец", vbInformation, "Конец"  
End Sub

А если сразу брать расположение и название файла из реестра, то, наверное, так:  
 
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszName As String, ByVal dwFlags As Long) As Long  
 
Sub PlayCritialStopSound()  
Dim iRegValue As String, WshShell As Object, iCorrectPath As String  
   Set WshShell = CreateObject("WScript.Shell")  
   iRegValue = WshShell.RegRead("HKEY_USERS\.DEFAULT\AppEvents\Schemes\Apps\.Default\SystemHand\.Default\")  
   'MsgBox iRegValue  
   iCorrectPath = Replace(iRegValue, "%SystemRoot%", Environ("WinDir"))  
   'MsgBox iCorrectPath  
   Call sndPlaySound(iCorrectPath, 1)  
End Sub  
 
P.S. Проверить не могу, т.к. на работе отсутствуют колонки и спикер отключен

Узнаём имя 6-го столбца  
 
MsgBox Split(Cells(1, 6).Address, "$")(1)  
 
 
P.S. Скорость не замерял

Готов к встрече )

Ну, у меня жена давно просит свозить её в Калиниград )

)) Ну, тогда я предлагаю тур по городам России. Но теперь некоторые скажут, а почему только по городам России? Так мы договоримся вообще весь мир объездить ))    
Юрий, а Вы откуда, а то я запамятовал? )

Спасибо, Сергей, что не заставили меня тащить всё это на другой конец Москвы, а подъехали сами ))  
Спасибо за ликёр ) получается, что не совсем безвозмездно отдал ))  
 
P.S. Кстати, я вот тут подумал... может как-нибудь организовать встречу участников нашей Планеты в Москве? Посидеть, пообщаться, узнать друг-друга в живую, так сказать? Я, конечно, понимаю, что сейчас у всех дачный сезон, но если не получится летом, то можно осенью встретиться, например, в сентябре. Кто что думает?

)) вес брутто (т.е. вес вместе с тарой) я не знаю, т.к. самой тары нет )  
а если вас интересует вес нетто, то все эти книги весят 7,1 кг. )

Потому, что из-за нехватки времени, я перешёл из разряда "помогающих" в разряд "читающих" форум. А чтобы люди, которым я помогал не ждали ответом от меня (т.к. я не могу много времени уделять форуму), пришлось сменить ник.  
 
P.S. Вот уволюсь с работы, будет больше свободного времени... )

Не за что!

Да, Владимир. Это я, Павел (который 55) ) ну, тост, так тост))  
За твоё здоровье! Молодец! Успехов тебе! [далее идёт звон бокалов] ))

Владимир, поздравляю!  
 
P.S. Предлагаю девиз: "Чтобы каждый из нас стал Microsoft MVP - Excel" ))

vikttur, по поводу кнопки сворачивания формы см. файл.  
 
P.S. Если отобразить форму в Модальном режиме, то даже свернув формы вы не сможете менять ничего на листе Excel. Поэтому возможно есть резон открывать форму немодальном режиме (vbModeless)

Слэн, вам пора уже свои книги начать издавать )  
Юрий, прошу прощения, что так получилось) Я не специально))

Да не за что )

Ребята, я отписался вам по Email.  
 
P.S. Я думаю, если вы не далеко от меня, то сегодня до 3-4 дня. Я тоже могу встретиться с кем-нибудь.

Добрый день, Сергей.  
 
С удовольствием отдам книги в ваши руки.    
По поводу книги "Excel.Трюки. 100 проф. примеров" - то у вас другие авторы. У меня Рэина Холи и Дэвид Холи. Я думаю у нас с вами разные книги.  
Но и в моей книги тоже не без косяков. А ошиблись переводчики, либо редакторы. Там практически все русские формулы указаны с использованием запятой в разделители аргументов. А как мы с вами знаем - если формулы пишутся в английской локализации, то они должны использовать запятую, а в русской локализации - точку с запятой. Поэтому в книги есть такие примеры:  
=RIGHT(A1,5)  
=ПРАВСИМВ(A1,5) - тут должна быть точка с запятой, а не запятая  
 
Это ошибка редакторов и т.д., а не самих авторов книги.  
 
Я свяжусь с вами сегодня по Email и мы обговорим место и время встречи.

Добрый день, Дмитрий.  
Excel меня ничем не обидел ) просто я их уже прочёл и они просто лежат у меня на полке пылятся, а так может кому-то ещё сгодятся. Плюс у меня ещё другие книги лежат.  
 
Ок. За вами Пункт № 7

Добрый день, Сергей.    
Ну, что я тут могу ответить ) Просмотрев все 50 книг - вы станете профессионалом из профессионалов ))  
 
P.S. Я чисто случайно заметил, что у вас другое свойство написано) Может это только в этой книге такие косяки, а во всех других всё правильно )

Отдам книги по Excel в хорошие руки (г. Москва)  
 
Всем добрый день!  
Отдам книги по Excel в хорошие руки (г. Москва).  С одним условием, см. в конце.  
 
1) Excel 2003. Библия пользователя + CD (сзади книги). Автор: Джон Уокенбах. Стр. 766. Цена: 321 руб.    
2) Профессиональное программировании на VBA в Excel 2003 + CD (сзади книги). Автор: Джон Уокенбах. Стр. 799. Цена: 429 руб.  
3) Подробное руководство по созданию формул в Excel 2003 + CD (сзади книги). Автор: Джон Уокенбах. Стр. 637. Цена: 497 руб.  
4) Excel 2003 и VBA. Справочник программиста. Авторы: П.Киммел, Д.Грин и др. Стр. 1080. Цена:  560 руб.  
5) Excel 2002. Разработка приложений. Автор: Андрей Гарнаев. Стр. 783. Цена: 234 руб.  
6) Программирование на VBA 2002. Автор: В.Г. Кузьменко. Стр. 876. Цена: 378 руб.  
7) Visual Basic 6.0. Наиболее полное руководство для профессиональной работы в среде Visual Basic 6.0. Стр. 956. Цена: 317 руб.  
8) Самоучитель VBA. Технология создания пользовательских приложений. Автор: Андрей Гарнаев. Стр. 503. Цена: 119 руб.  
9) Excel. Трюки. 100 профессиональных примеров. Автор: Рэина Холи, Дэвид Холи. Стр. 286. Цена стёрлась )  
 
Итого стоимость книг, которую я когда-то заплатил за них (321+429+497+560+234+378+317+119) = 2855 руб.  
 
Вся стопка книг порядка 32 см. высотой )  
 
Я отдам вам их бесплатно!  
 
Но у меня условие – из всех отписавшихся в теме, я сам выбираю, кому я отдам книги.    
Т.е. не обязательно первому, кто заявил желание взять книги, а тому, кого я сам выберу из числа отписавшихся в теме.  
 
Кого заинтересовали книги прошу отписать в теме, написав своё имя и контактный Email (например так: Заберу все книги. Игорь, Email: 123 собачка яндекс.ру)

Наталия, спасибо за вашу благодарность, но что-то я вашего телефона в конце вашего сообщения не увидел )

Команда "Отобразить лист..." в Excel 2007 и 2010  
 
Меню "Главная" - найти кнопку "Формат" - меню "Скрыть или отобразить" - "Отобразить лист"

) не за что )

Vovan RU, а почему мы не хотите произвести замену методом Replace?    
 
Range(Cells(2, 62), Cells(iLastRow, 87)).Replace What:="", Replacement:="0", LookAt:=xlWhole  
 
Мне кажется это будет быстрее, чем проходить циклом по всем ячейкам в 25 столбцах  
Так же можно посоветовать выключать пересчёт формул  
 
Application.Calculation = xlCalculationManual  
 
'ВАШ КОД  
 
Application.Calculation = xlCalculationAutomatic

)) угу, Спасибо, Игорь)

Наверное, так. См. пример