Ошибка при активации Листа Excel

[ольгаг]

Здравствуйте Уважаемые программисты excel!
Подскажите пожалуйста, как обойти ошибку "MsgBox Err.Description" в коде ниже (vba excel 2003) при переключении на Лист "ОТД". Не могу понять: появляется просто пустое окно с ошибкой.
Лист "ОТД" защищен паролем, а ошибка как-будто срабатывает при выделении ячейки. Причем эта ошибка появляется не на каждом компьютере с одной и той же версией excel.

Private Sub Worksheet_Activate()
   On Error GoTo w

   Dim ra As Variant
   Application.ScreenUpdating = False
   ActiveWindow.ScrollColumn = 1

   Set ra = Selection
   [A1:Z1].Select
   ActiveWindow.Zoom = True
   ra.Select

   Sheets("ОТД").ScrollArea = "10:2000"
   Application.ScreenUpdating = True

w:
   MsgBox Err.Description
End Sub

[VictorM]

перед (выше)
w:
напишите
Exit Sub

[kuklp]

Private Sub Worksheet_Activate()
    On Error GoTo w
    Dim ra As Variant
    Application.ScreenUpdating = False
    ActiveWindow.ScrollColumn = 1
    Set ra = Selection
    [A1:Z1].Select
    ActiveWindow.Zoom = True
    ra.Select
    Me.ScrollArea = "10:2000"
    Application.ScreenUpdating = True
    Exit Sub
w:
    MsgBox Err.Description
End Sub

[ольгаг]

Спасибо большое!
Похоже ошибка появлялась из-за подключенной библиотеки "microsoft windows common controls 6.0 (SP6)". Видимо при работе с файлом (возможно при копировании в него из других файлов какой-то информации) подключилась эта dll.
Подскажите пожалуйста, есть ли какой-то способ определить на стадии отладки совместимость библиотек с версией excel или windows?
Дело в том, что на некоторых компьютерах ошибка не проявлялась.

[kuklp]

Да не было никакой ошибки! Об этом и свидетельствовало

Сообщение от ольгаг

просто пустое окно с ошибкой.

. Для исключения ложного вывода окна и нужен Exit Sub.