Код работает без использования Private Sub Workbook_Open()
и возвращает ошибку при использовании в следующих строках
Dim ws As Worksheet
Dim ws_str As String
ws_str = "EOSL"
'Код останавливается здесь ->
Set ws = Worksheets(ws_str)
Application.ScreenUpdating = False
On Error Resume Next
Пожалуйста, помогите