HTCondorWiki: Excel Jobs

 *: =Embedded VBA Code=:
 
 
-Public WithEvents Appl As Application
+  Public WithEvents Appl As Application
 
-Private Sub Appl_WorkbookOpen(ByVal Wb As Workbook)
+  Private Sub Appl_WorkbookOpen(ByVal Wb As Workbook)
    If Application.Calculation = xlCalculationAutomatic Then
         If ActiveWorkbook.ForceFullCalculation = True Then
             ActiveWorkbook.ForceFullCalculation = False
@@ -143,13 +143,13 @@
             Application.Quit
         End If
    End If
-End Sub
+  End Sub
 
-Private Sub Appl_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
+  Private Sub Appl_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
 
     If Application.Calculation = xlCalculationManual Then
         MsgBox "Closing Workbook"
         ActiveWorkbook.ForceFullCalculation = True
     End If
 
-End Sub
+  End Sub