excel vba实战技巧精粹书中这一句代码是否多余？

zhsh1128

excel vba实战技巧精粹 技巧30代码如下
Sub DeleteBlankSheet()
    Dim sht As Worksheet
    Application.DisplayAlerts = flase
    For Each sht In Worksheets
        If IsBlankSheet(sht) Then sht.Delete
    Next
    Application.DisplayAlerts = True
End Sub
Function IsBlankSheet(sht As Variant) As Boolean
    If TypeName(sht) = "string" Then Set sht = Worksheets(sht)
上面这一句是不是很多余啊。在上面的DeleteBlankSheet过程中，已经定义sht为worksheet型的数据。这一句怎么还判断是否为string型啊？搞不懂。那位大侠解释一下。
    If Application.CountA(sht.UsedRange.Cells) = 0 Then
        IsBlankSheet = True
    End If
End Function

清风_ll

局部变量的生存期只在过程中有效，不同的过程中可以定义为不同的类型。如在DeleteBlankSheet过程中定义的是worksheet对象类型，而在IsBlankSheet(sht As Variant) 中定义的却是变形体Variant。