Function DummyFunctionWithErrorCheck(InputValue As Variant) As VariantIf InputValue < 0 Then ' return an error valueDummyFunctionWithErrorCheck = CVErr(xlErrNA) ' retunerer #I/T!' xlErrDiv0, xlErrNA, xlErrName, xlErrNull, xlErrNum , xlErrRef, xlErrValueExit FunctionEnd If' do the calculationDummyFunctionWithErrorCheck = InputValue * 2End Function