Test run started : 10/03/2008 15:15:19
BEGIN TestCalc
 TEST START : RangeTest3
  ITEM Assertion OK : - setFormulaR1C1
  ITEM Assertion OK : - getFormulaR1C1
  ITEM Assertion OK : - Range.Copy() and Range.PasteSpecial()
  ITEM Assertion OK : - Range.Copy(Range("I10"))
  ITEM Assertion OK : PasteSpecial Paste:=xlPasteValues
  ITEM Assertion OK : PasteSpecial Paste:=xlPasteFormulas
  ITEM Assertion OK : PasteSpecial Paste:=xlPasteFormats
  ITEM Assertion OK : PasteSpecial 
  ITEM Assertion OK : PasteSpecial SkipBlanks:=True
  ITEM Assertion OK : PasteSpecial Operation:=xlPasteSpecialOperationAdd
  ITEM Assertion OK : PasteSpecial Operation:=xlPasteSpecialOperationSubtract
  ITEM Assertion OK : PasteSpecial Operation:=xlPasteSpecialOperationMultiply
  ITEM Assertion OK : PasteSpecial Operation:=xlPasteSpecialOperationDivide
  ITEM Assertion OK : PasteSpecial Transpose:=True
  ITEM Assertion FAIL : ActiveWorkbook.FileFormat
  ITEM Assertion OK : ActiveWorkbook.Name
  ITEM Assertion OK : ActiveWorkbook.FullName und ActiveWorkbook.Path
  ITEM Assertion FAIL : -  = ActiveWorkbook.Colors(3) set
  ITEM Assertion OK : -  = ActiveWorkbook.ResetColors
  ITEM Assertion OK : -  = ActiveWorkbook.Colors(3) get
  ITEM Assertion OK : -  = Range("K22").End (xlDown)
  ITEM Assertion OK : -  = Range("K22").End (xlUo)
  ITEM Assertion OK : -  = Range("K22").End (xlToLeft)
  ITEM Assertion OK : -  = Range("K22").End (xlRight)
  ITEM Assertion OK : -  ActiveSpreadsheet.Next
  ITEM Assertion OK : -  ActiveSpreadsheet.Next
  ITEM Assertion OK : -  ActiveSpreadsheet.Previous
  ITEM Assertion OK : -  ActiveSpreadsheet.Previous
  ITEM Assertion OK : -  Range("J4:J11").AutoFilter field:=1, Criteria1:="x"
  ITEM Assertion OK : -  Range("J4:J11").AutoFilter field:=1, Criteria1:="<>"
  ITEM Assertion OK : -  Range("J4:J11").AutoFilter field:=1, Criteria1:="="
  ITEM Assertion OK : -  Range("J4:J11").AutoFilter 
  ITEM Assertion OK : -  ActiveSheet.Resize.Select
  ITEM Assertion OK : -  Application.GoTo Reference:="R8C2"
  ITEM Assertion FAIL : -  Application.GoTo Reference:="R[8]C[2]"
  ITEM Assertion OK : -  Application.GoTo Reference:="R8C2"
  ITEM Assertion OK : -  Range.Group - please check visually
  ITEM Assertion OK : -  Range.Group - please check visually
  ITEM Assertion OK : -  Range.Ungroup- please check visually
  ITEM Assertion OK : -  Range.Ungroup - please check visually
  ITEM Assertion OK : -  Range.Group - please check visually
  ITEM Assertion OK : -  Range.Group - please check visually
  ITEM Assertion OK : -  Range.clearOutline - please check visually
  ITEM Assertion OK : -  Range.AutoOutline - please check visually
  ITEM Assertion OK : -  Range.AutoOutline - please check visually
  ITEM Assertion OK : -  ActiveSheet.UsedRange.Select
  ITEM Assertion OK : -  Range("A13").AddIndent
  ITEM Assertion OK : -  Range("A13").IndentLevel set
  ITEM Assertion OK : -  Range("A13").IndentLevel get
  ITEM Assertion OK : -  Range("A13").IndentLevel get
  ITEM Assertion OK : - Range.Copy() and Range.PasteSpecial()
  ITEM Assertion OK : - Range.Copy() and Range.PasteSpecial()
  ITEM Assertion OK : - Range.Copy() and Range.PasteSpecial()
  ITEM Assertion OK : - Range.Calculate
  ITEM Assertion OK : Worksheet.Calculate
  ITEM Assertion OK : - Application.Calculate
  ITEM Assertion OK : Global.Calculate
  ITEM Assertion OK : Calculation set
  ITEM FAIL (RangeTest3)
 TEST Not succesfully completed : RangeTest3
END   TestCalc
Test run finished : 10/03/2008 15:15:21