Вопрос по Worksheet_Calculate

[serafim09]

Добрый всем день!

есть код:

Private Sub Worksheet_Calculate()

f = Range("show")

If f = 1 Then
Run "показать"
    End If

   If f = 2 Then
   
Run "скрыть"

    End If
    
    End Sub

Sub Показатели()
    Показ.Show
End Sub

+

Sub показать()

Application.ScreenUpdating = False
    
Sheets("Лист1").Visible = Hidden


Application.ScreenUpdating = True

End Sub

Sub скрыть()
Application.ScreenUpdating = False

Sheets("Лист1").Visible = True

Application.ScreenUpdating = True

End Sub

Так вот ругается макрос "run time error 9" "subscript out of range" когда другой файл открываю. Я понимаю, это связано с отсутствием значений или листов в другом документе... как мне исправить это?
Нужен в общем опять совет.

[SAS888]

А в какой строке кода ошибка?
Если в

f = Range("show")

то попробуйте добавить ссылку на книгу и лист. Например:

f = ThisWorkbook.Sheets(1).Range("show")

[serafim09]

Сообщение от SAS888

А в какой строке кода ошибка?
Если в

f = Range("show")

то попробуйте добавить ссылку на книгу и лист. Например:

f = ThisWorkbook.Sheets(1).Range("show")

Спасибо!Очень оперативно!!!!
Благодаря Вам все исправилось))

Я пробовал подставлять раньше Workbook.Sheet, но не срабатывало. А вставил ThisWorkbook.Sheets....заработало отлично!!!