Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Cancel = False
yesno = MsgBox("Произвести запись в ЖУРНАЛ ?", 1)
If yesno = 2 Then GoTo mend
Dim wbPere4en As Workbook
For Each w In Workbooks ' проверяем открыт файл Журнал.xls или нет
w.Activate
If w.Name = "Журнал.xls" Then
Exit For
End If
Next w
If ActiveWorkbook.Name = "Журнал.xls" Then ' Если открыт то
Set wbPere4en = Workbooks("Журнал.xls")
GoTo L1
Else 'Если Не открыт то открываем
Set wbPere4en = Workbooks.Open("Журнал.xls")
GoTo L1
End If

L1:
Worksheets("Лист1").Activate

Кто знает почему ругается на активацию листа

Переписал ВСЕ заново ! Другой алгоритм, другими командами. Теперь работает. Спасибо всем !!!
А что бы экран не моргал на время выполнения процедуры отключаю обновление экрана.