使用vba拆分数据，在循环比较中出现错误，应该怎么解决？

Sub test()
'拆分数据
Dim sht As Worksheet
Dim i, k, icolumn, irow As Integer
Dim sname As String

sname = InputBox("请输入待分列表名")
icolumn = InputBox("按第几列进行分列")

For i = 2 To Sheets(sname).Cells(65536, 1).End(xlUp).Row
    k = 0
    For Each sht In Sheets
        If sht.Name = Sheets(sname).Cells(i, icolumn) Then  ----------这块报错
            k = 1
        End If
    Next
    If k = 0 Then
        Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = Sheets(sname).Cells(i, icolumn)
    End If
Next

建议把具体的报错信息发出来