错误9：使用公开私有时下标超出范围

Question

无需使用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

请帮助