关于引用的问题

公司内部有2个EXCEL版本，这样经常会存在引用丢失的现象（不同版本之间），不知道是否有办法自动判断当前EXCEL版本并自动引用EXCEL?

microsoft excel 12.0 object librar.......

microsoft excel 11.0 object librar.......

找到了下面这段代码，但我不知道怎么用？（怎样判断当前版本？rf.name=?）

 '用VBA代码自动引用OLE Automation项
    Dim REFE As References     '声明REFE为引用
    Dim strFileName As String   '声明strFileName为文本型变量
    Dim rf
    Set REFE = Application.References
    For Each rf In REFE    '在引用中循环查找
        If rf.Name = "OLE" Then    '如果名字为OLE就移动OLE的引用
            Application.References.Remove rf    '移除
            Exit For    '退出循环
        End If
    Next
    strFileName = "C:\Windows\System32\stdole2.tlb"
    Set rf = Application.References.AddFromFile(strFileName)    '重新引用OLE