Thanks Rob and Bob --

This is DLL hell, isn't it.

What is the smart way to set up an app so it can be distributed to users
having various levels of Service Packs, versions of Excel, etc., so that the
app will be likely to run in those different environments?

The users of this app will most likely be able to understand the need to
update to a specific service pack, etc., if I am able to tell them what to
do.

I need to be able to tell them what to do.

Is one answer to "wrap" this Excel app in a dotNet Windows Forms
application?

Thanks for any further ideas.

Larry


"L Mehl" wrote in message
...
Hello --

Some code was posted here to list all current references to a worksheet.
Can someone tell me what .Major and .Minor mean?

Can I get other information about a reference, such as Version? What part
of the Object Browser contains this information?

Thanks for any help.

L Mehl
'------------------------------------

' Description, Name, GUID, #MAjor, #Minor, full path.

Dim refReference
Dim i As Integer, x As Integer
Dim iWorksheets As Integer, Y As Integer
Dim strResultsTableName As String

strResultsTableName = "Active VBE References"

'Count number of worksheets in workbook
iWorksheets = ActiveWorkbook.Sheets.Count

'Check for duplicate Worksheet name
i = ActiveWorkbook.Sheets.Count
For x = 1 To i
If Windows.Count = 0 Then Exit Sub
If UCase(Worksheets(x).Name) = UCase(strResultsTableName) Then
Worksheets(x).Activate
If Err.Number = 9 Then
Exit For
End If
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
'Exit Sub
End If
Next

'Add new worksheet at end of workbook
' where results will be located
Worksheets.add.Move after:=Worksheets(Worksheets.Count)

'Name the new worksheet and set up Titles
ActiveWorkbook.ActiveSheet.Name = strResultsTableName
ActiveWorkbook.ActiveSheet.Range("A1").Value = "Description"
ActiveWorkbook.ActiveSheet.Range("B1").Value = "Name"
ActiveWorkbook.ActiveSheet.Range("C1").Value = "GUID"
ActiveWorkbook.ActiveSheet.Range("D1").Value = "#Major"
ActiveWorkbook.ActiveSheet.Range("E1").Value = "#Minor"
ActiveWorkbook.ActiveSheet.Range("F1").Value = "Path"

ActiveCell.Offset(1, 0).Select
For Each refReference In Application.VBE.ActiveVBProject.References
With ActiveCell
.Value = refReference.Description
.Offset(0, 1).Value = refReference.Name
.Offset(0, 2).Value = refReference.GUID
.Offset(0, 3).Value = refReference.Major
.Offset(0, 4).Value = refReference.Minor
.Offset(0, 5).Value = refReference.FullPath
.Offset(1, 0).Select
End With
Next

' ...