Project / Libary error
 

Had to reformat my hard drive and reinstall Excel (2007) and now when I run
one of my spreadsheets I get the following error:

Can Not Find Project or Libary

When I checked for missing referances, DHTML Edit Control for IE5 was
missing.

The w in the line "For Each w In ThisWorkbook.Worksheets" was
highlighted.


Sub unprotect_all_sheets()

Application.ScreenUpdating = False

For Each w In ThisWorkbook.Worksheets
w.Unprotect Password:="popcorn"
Next

Application.ScreenUpdating = True

End Sub

Project / Libary error
 

do you need that control?

to check, run Debug / Compile VBA Project from the IDE
environment....anyobject that needs this DLL will raise an issue. if it
compiles OK, just save the worksheet
if not, you'll need to get the dll.....perhaps re-installing explorer? not
sure

"Patrick C. Simonds" wrote in message
...
Had to reformat my hard drive and reinstall Excel (2007) and now when I
run one of my spreadsheets I get the following error:

Can Not Find Project or Libary

When I checked for missing referances, DHTML Edit Control for IE5 was
missing.

The w in the line "For Each w In ThisWorkbook.Worksheets" was
highlighted.


Sub unprotect_all_sheets()

Application.ScreenUpdating = False

For Each w In ThisWorkbook.Worksheets
w.Unprotect Password:="popcorn"
Next

Application.ScreenUpdating = True

End Sub

Project / Libary error
 

do you need that control?

to check, run Debug / Compile VBA Project from the IDE
environment....anyobject that needs this DLL will raise an issue. if it
compiles OK, just save the worksheet
if not, you'll need to get the dll.....perhaps re-installing explorer? not
sure

"Patrick C. Simonds" wrote in message
...
Had to reformat my hard drive and reinstall Excel (2007) and now when I
run one of my spreadsheets I get the following error:

Can Not Find Project or Libary

When I checked for missing referances, DHTML Edit Control for IE5 was
missing.

The w in the line "For Each w In ThisWorkbook.Worksheets" was
highlighted.


Sub unprotect_all_sheets()

Application.ScreenUpdating = False

For Each w In ThisWorkbook.Worksheets
w.Unprotect Password:="popcorn"
Next

Application.ScreenUpdating = True

End Sub