Extract code from a closed workbook

[pcc]

Is it possible to extract VB code from a workbook that is closed? I have a workbook that will not open (I get the 'Not responding' message when it loads), and it has code in it that I would like to salvage.
Any ideas? Thanks.

 

[pcc]

By the way, I am using Office XP and Excel2002 (don't laugh!)

 

[JEC]

You can't if the workbook is not able to open, try opening in safe mode (hold CTRL key while clikcing file)

 

[JEC]

What happens if you run this from an empty file? Does the vba project show up if you step through this code?

Sub jec()
 Set wb = GetObject("C:\Users\xxxx\Downloads\test.xlsx")
 wb.Close 0  
End Sub

 

[pcc]

What happens if you run this from an empty file? Does the vba project show up if you step through this code?

Sub jec()
 Set wb = GetObject("C:\Users\xxxx\Downloads\test.xlsx")
 wb.Close 0 
End Sub

Yes! That worked perfectly. Thank you very much. Regards pcc