при сохранении файла вручную авторазмер работает.
при сохранении книги макросом нет.

и что делать...

Например, при активизации листа или закрытии книги возникает событие ComboBox1_Change. Методом тыка понял, что дело в символе абзаца. Они содержатся в ячейках, образующих ComboBox1.List.
Использование абзаца желательно. Как можно обойти проблему


Debug.Print Len([D1].Value)
Debug.Print Len([D5].Value)
Debug.Print Len(ComboBox1.Value)
Здесь D1 - ячейка, выбранная в ComboBox
D5 - связанная с ComboBox
Для строки заг1Chr(10)описание
13
14
14
Видимо Excel превращает символ абзаца в два каких-то...

Определенно перед абзацем Excel вставляет символ Chr(13)

При нажатии на гиперссылку стало выпадать следующее окошко:
Причем до этого все работало. За компьютером работаю только я и никакого системного администратора нет.
Вопрос аналогичен этой теме
http://www.oldplanetaexcelforum.ru/forum.php?thread_id=14820

Решилась проблема так же лихо как и появилась:
Установил браузер google chrome и удалил его назнчив браузер по умолчанию IE.
мж кому поможет)

Стоит следующая задача:  
есть ячейка со значением. Например A1 = 50  
есть ячейка с формулой. Например A4: =A1  
 
можно как-либо передать ячеку A4 (или группу связанных с A1 ячеек) по какому-либо событию например?  
 
Сейчас вопрос решается с помощью события Worksheet_Change и ручного поиска связанных ячеек. Приложил пример.

Приветствую всех!  
 
Макрос в старшей версии работает. При его запуске в 2003 вылетает ошибка на строчке  
   Range("A4:D15").AutoFilter Field:=4, Criteria1:=arr, Operator:=xlFilterValues  
 
Подскажите пожалуйста, как можно подправить макрос, чтобы он заработал  
 
Листинг кода  
 
Sub Flt(rng As Range)  
   Application.ScreenUpdating = False  
     
   Dim ilastrow As Double  
   Dim li As Long, arr()  
 
   With rng  
       ilastrow = .Cells.Count  
       ReDim arr(ilastrow - 1)  
         
       For i = 1 To ilastrow  
           arr(i - 1) = .Cells(i, 1).Text  
       Next  
   End With  
   Range("A4:D15").AutoFilter Field:=4, Criteria1:=arr, Operator:=xlFilterValues  
     
   Application.ScreenUpdating = True  
End Sub  
Sub Фильтр_размер()  
   Dim str As String  
   str = Range("D1").Value  
 
   If StrComp(str, "Мелкие размеры") = 0 Then ' Если равны  
       Call Flt(Range("настройки!B7:B10"))  
   End If  
   If StrComp(str, "Средние размеры") = 0 Then ' Если равны  
       Call Flt(Range("настройки!C7:C10"))  
   End If  
   If StrComp(str, "Крупные размеры") = 0 Then ' Если равны  
       Call Flt(Range("настройки!D7:D9"))  
   End If  
 
End Sub  
 
Спасибо