[RESOLVED] Office 2003 Favour Request

[Resource Dragon]

G'day. I was hoping someone could please do me a small favour. I have office 2007 and I need some info from office 2003.

What I need is for someone with Office 2003 to open a new file in Excel, insert a module, go to Tools > References and add references to Microsoft Outlook 11.0 Object Library, Microsoft Scripting Runtime and Microsoft Word 11.0 Object Library then paste the following code in the module and run it and upload the file to me after the code has been run.

Sub CheckReferences()
Dim n As Integer
Sheets("Sheet1").Select
On Error Resume Next
Cells(1, 1) = "Name"
Cells(1, 2) = "Description"
Cells(1, 3) = "GUID"
Cells(1, 4) = "Major"
Cells(1, 5) = "Minor"
Cells(1, 6) = "fullpath"
Cells(1, 7) = Application.Version


For n = 1 To ActiveWorkbook.VBProject.References.Count
    Cells(n + 1, 1) = ActiveWorkbook.VBProject.References.Item(n).Name
    Cells(n + 1, 2) = ActiveWorkbook.VBProject.References.Item(n).Description
    Cells(n + 1, 3) = ActiveWorkbook.VBProject.References.Item(n).GUID
    Cells(n + 1, 4) = ActiveWorkbook.VBProject.References.Item(n).Major
    Cells(n + 1, 5) = ActiveWorkbook.VBProject.References.Item(n).Minor
    Cells(n + 1, 6) = ActiveWorkbook.VBProject.References.Item(n).fullpath
Next n

End Sub

(I didn't write this code, the original is to be found at: http://www.ozgrid.com/forum/showthread.php?t=22483 ) - credit where credit is due.

Thank you

The Dragon

[Siddharth Rout]

Here you go

http://www.freefilehosting.net/rd

Sid

[Resource Dragon]

Dear Sid

Thanks for that. Much appreciated. Best wishes for Christmas & have a happy & safe holiday season.

cheers

The Dragon