Question : Finding and removing Calendar Control Reference in Excel Workbook

I have a large workbook with several password protected worksheets. Recently and inexplicably, several users (2000, 2003) have begun recieiving Module errors that appear to be diriven from a missing MSCAL.ocx reference. I've tried to remove this reference (because the owrkbook is not using a calendar control) but I am unable to (says Reference is in use). How do I search for and remove the code that this reference is connected to and then remove the reference?

Greg~

Answer : Finding and removing Calendar Control Reference in Excel Workbook

Try running the code below, then in the VBEditor, choose Debug-Compile VBProject. Then save the workbook, close Excel and restart. Open the workbook again, and see if you can now remove the reference.

                       
             Sub DeleteCalendar()
   Dim wks As Worksheet, objOLE As OLEObject
   For Each wks In ActiveWorkbook.Worksheets
   For Each objOLE In wks.OLEObjects
      If UCase(Left(objOLE.progID, 5)) = "MSCAL" Then objOLE.Delete
   Next objOLE
   Next wks
   
End Sub

Open in New Window Select All