VBA常用自定义函数(2)

'检查工作表是否存在
Public Function SheetExist(strSearchFor As String) As Boolean
    Dim InterimSheet As Object
    SheetExist = False
    For Each InterimSheet In ActiveWorkbook.Worksheets
        If InterimSheet.Name = strSearchFor Then
            SheetExist = True
            Exit Function
        End If
    Next InterimSheet
End Function