求代码哪里出问题

摇摆不定的鱼儿

按课件打出来的，但是逐字逐行的检查了一早上还是提示未找到命名参数，求解。

Sub chaifenshuju()

Dim sht As Worksheet
Dim k, i, j As Integer
Dim irow As Integer

irow = Sheet1.Range("a1048576").End(xlUp).Row

For i = 2 To irow
        k = 0
        For Each sht In Sheets
    If sht.Name = Sheet1.Range("c" & i) Then
      k = 1
    End If
Next

If k = 0 Then
     Sheets.Add after:=Sheets(Sheets.Count)
     Sheets(Sheets.Count).Name = sheets1.Range("d" & i)
End If
Next

For j = 2 To Sheets.Count
    Sheet1.Range("a1:h" & irow).AutoFilter field:=3, criterial:=Sheets(j).Name
    Sheet1.Range("a1:h" & irow).Copy Sheets(j).Range("a1")
Next

Sheet1.Range("a1:H" & irow).AutoFilter


End Sub

饮冰e士

不出意外的话，应该是给工作表命名为空了。