On Thu, 22 Jun 2006 02:45:35 -0500, miikka1978 wrote:

[...]

Replace:

Range("RESULTS").Select
Selection.ClearContents

with:

Range("RESULTS").ClearContents

and replace:

[...]
Range("NPV").Select
Calculate
Cells(counter + 3, 16).Value = ActiveCell.Value
[...]

with:

Calculate
Cells(counter + 3, 16).Value = Range("NPV").Value

This won't affect the Selection object so this is probably what you want.

--
PL