What I am trying to do is when there is a Calculation that changes a cell in column B the value in column D is copy and pasted into column E (all of which are in the same row). There is an Error in the line Adam1 = Range("B" & ThisRow).Value

I am using XP SP2 with Excel 2003 SP2

Here is what I have:

Private Sub Worksheet_Calculate()

Adam1 = Range("B" & ThisRow).Value

Range("D" & ThisRow).Select

Selection.Copy

Range("E" & ThisRow).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

ActiveSheet.Paste

Application.CutCopyMode = False

End Sub

Thank you in advance,

Adam