显示运行错误,类型不匹配

Sub CheckSheet() '如果当前工作薄中没有名为kk的工作表的话，就增加一张名为kk的工作表，并将其排在工作表从左至右顺序排列的最左边的位置，
Dim shtSheet As Worksheet
For Each shtSheet In Sheets
If shtSheet.Name = "KK" Then Exit Sub
Next shtSheet
Set shtSheet = Sheets.Add(Before:=Sheets(1))
shtSheet.Name = "KK"
End Sub

为什么运行到For Each shtSheet In Sheets显示运行错误13，类型不匹配。

For Each shtSheet In workSheets
或 Dim shtSheet  
sheets 是一个混合对象集合。 包括这些：