Метод 'Рабочие листы' объекта '_Global' не удался - пожалуйста, помогите мне

Question

У меня проблема с Error 1004 "Method 'Worksheets' of object'_Global' failed" при запуске приложения.

Я полагаю, что у меня возникла неполная ссылка на приведенный ниже код, основанный на том, что я прочитал.Я думаю, что мне нужно сделать конкретную ссылку на рабочую книгу, однако я попытался сделать это несколькими способами, но все безуспешно.Кто-нибудь может помочь?

    Private Sub CommandButton1_Click()
    Dim irow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("schooldetails")
    irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    With ws
    .Range("A" & irow) = TextBox5.Value
    .Range("B" & irow) = TextBox1.Value
    .Range("C" & irow) = TextBox2.Value
    .Range("D" & irow) = TextBox3.Value
    .Range("E" & irow) = ComboBox1.Value
    .Range("F" & irow) = TextBox4.Value
    .Range("G" & irow) = TextBox6.Value
    .Range("H" & irow) = TextBox7.Value
    .Range("I" & irow) = TextBox8.Value
    .Range("J" & irow) = TextBox9.Value
    .Range("K" & irow) = TextBox10.Value
    .Range("L" & irow) = TextBox11.Value
    End With
    clear
    Frame1.Enabled = True
    Frame2.Enabled = True
    End Sub


    Private Sub schooldetails()
    Dim SchlCd, SchlPin As Integer
    Dim SchlName, SchlAdd, SchlDist As String
    Dim irow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("schooldetails")
    irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    With ws
    .Range("A" & irow) = TextBox5.Value
    .Range("B" & irow) = TextBox1.Value
    .Range("C" & irow) = TextBox2.Value
    .Range("D" & irow) = TextBox3.Value
    .Range("E" & irow) = ComboBox1.Value
    .Range("F" & irow) = TextBox4.Value
    End With
    End Sub


    Private Sub Football()
    Set ws = Worksheets("Football")
    irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    With ws
    .Range("A" & irow) = TextBox5.Value
    .Range("B" & irow) = TextBox1.Value
    .Range("C" & irow) = TextBox12.Value
    .Range("D" & irow) = TextBox13.Value
    .Range("E" & irow) = ComboBox2.Value
    .Range("F" & irow) = "Football"
    'MsgBox ("Data Saved")
    'clear
    End With
    MsgBox ("Football Data Saved")
    'clear
    End Sub


    Private Sub kabadi()
    Set ws = Worksheets("kabadi")
    irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    With ws
    .Range("A" & irow) = TextBox5.Value
    .Range("B" & irow) = TextBox1.Value
    .Range("C" & irow) = TextBox12.Value
    .Range("D" & irow) = TextBox13.Value
    .Range("E" & irow) = ComboBox2.Value
    .Range("F" & irow) = "kabadi"
    'MsgBox ("Data Saved")
    'clear
    End With
    MsgBox ("kabadi Football Data Saved")
    'clear
    End Sub