checke hvor mange sheets der er i en excel fil fra vb

Function OpenXLSFile(strXLSFile As String, lngPersonID As Long, Optional bolMerge As Boolean = False) As Boolean
On Error GoTo err_OpenXLSFile
Dim objExcel As Object 'Excel.Application
Dim objWorkbook As Object

        On Error Resume Next
        Set objExcel = GetObject(, "Excel.Application")
        Err.Clear
        On Error GoTo err_OpenXLSFile
        If objExcel Is Nothing Then
            Set objExcel = GetObject("", "Excel.Application")
        End If
        objExcel.Visible = True
        On Error Resume Next
        objExcel.windowstate = -4137
        AppActivate "Microsoft Excel"
        On Error GoTo err_OpenXLSFile
        Set objWorkbook = objExcel.Workbooks.Open(strXLSFile)
        On Error Resume Next
        objWorkbook.Activate
        On Error GoTo err_OpenXLSFile
        OpenXLSFile = True
    msgbox "Antallet af sheets er : " & objWorkbook.sheets.count
   
    Exit Function
err_OpenXLSFile:
    OpenXLSFile = False

End Function

smukt !! takker mange gange
har du en hurtig metode til at køre et helt sheet igennem og smide det i feks en variabel?