GUID for Excel 2007

[tca_VB]

I have been using the information on KBs 267 and (search GUID) and am fairly close to a solution.

I've been able to mark VBA as Trusted and add a single reference library.

Question - can I expand on KB 267 and add more than one reference at a time by using the following (see red)?

Sub AddReference() 
     ' Macro purpose:  To add a reference to the project using the GUID for the reference library 
     Dim strGUID As String, theRef As Variant, i As Long, strGUIDb As String 
     ' Update the GUID you need below.
    strGUID = "{00020905-0000-0000-C000-000000000046}" 
    strGUIDb = "{00020813-0000-0000-C000-000000000046}"   
    ' Set to continue in case of error
    On Error Resume Next 
    ' Remove any missing references
    For i = ThisWorkbook.VBProject.References.Count To 1 Step -1 
        Set theRef = ThisWorkbook.VBProject.References.Item(i) 
        If theRef.isbroken = True Then 
            ThisWorkbook.VBProject.References.Remove theRef 
        End If 
    Next i
    Clear any errors so that error trapping for GUID additions can be evaluated
    Err.Clear 
    ' Add the reference
    ThisWorkbook.VBProject.References.AddFromGuid GUID:=strGUID, Major:=1, Minor:=0 
    ThisWorkbook.VBProject.References.AddFromGuid GUID:=strGUIDb, Major:=1, Minor:=0 
    ' If an error was encountered, inform the user
    Select Case Err.Number 
    Case Is = 32813 
         ' Reference already in use.  No action necessary
    Case Is = vbNullString 
         ' Reference added without issue
    Case Else 
        ' An unknown error was encountered, so alert the user
        MsgBox "A problem was encountered trying to" & vbNewLine _ 
        & "add or remove a reference in this file" & vbNewLine & "Please check the " _ 
        & "references in your VBA project!", vbCritical + vbOKOnly, "Error!" 
    End Select 
    On Error Goto 0 
End Sub

Once run on the MS Excel 2007, there was still a reference missing. On my XL 2002 SP3 I have Microsoft Calendar Control 10.0 This was missing on XL 2007. I finally reconciled manually by checking Microsoft Works Calendar 5.0 Type Library. Question - can this reference be added in the AddReference part of the code using GUID:
Reference Name: MSACAL
Full Path to Reference: C:\PROGRA~1\MICROS~3\Office10\MSCAL.OCX
Reference GUID: {8E27C92E-1264-101C-8A2F-040224009C02}?
If not, does anyone know what GUID?

Thanks for the help and past KBs and threads.

[tca_VB]

Can someone with Excel 2007 provide me with the GUID for Microsoft Works Calendar 5.0 Type Library? (I have Excel 2002 SP3, and I can't find this information online. This will help with part one of my question.)

The method I used to determine the GUID is the following:
Open VBAProject (Alt-11) and in Tools>References check the Microsoft Works Calendar 5.0 Type Library.

Then run the following code supplied by a KB at this site. (I put into a module and then ran it from a blank worksheet)

 
Option Explicit
 
Sub ListReferencePaths()
     ' Macro purpose:  To determine full path and Globally Unique Identifier (GUID)
     ' to each referenced library.  Select the reference in the Tools\References
     ' window, then run this code to get the information on the reference's library 
    On Error Resume Next
    Dim i As Long
    With ThisWorkbook.Sheets(1)
        .Cells.Clear
        .Range("A1") = "Reference name"
        .Range("B1") = "Full path to reference"
        .Range("C1") = "Reference GUID"
    End With
    For i = 1 To ThisWorkbook.VBProject.References.Count
        With ThisWorkbook.VBProject.References(i)
            ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Offset(1, 0) = .Name
            ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Offset(0, 1) = .FullPath
            ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Offset(0, 2) = .GUID
        End With
    Next i
    On Error GoTo 0
End Sub