Run Time Error Calling Value from one cell and placing in another

[DeezNuts]

I am having a small problem and not sure how to resolve it. I have a formula in E5 which is

=A5/A3*C3

and I have a vba that copies that value and places it in C5

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.Range("C5").Value = ActiveSheet.Range("E5").Value
End Sub

When I trigger E5 and its number changes the number in C5 does change correctly but I get a run time error

If I click Debug the this part of the VBA code is highlighted yellow

ActiveSheet.Range("C5").Value = ActiveSheet.Range("E5").Value

Anyone know what would cause this to happen?

 

[Momentman]

Use like this

Private Sub Worksheet_Change(ByVal Target As Range)
    Range("C5").Value = Range("E5").Value
End Sub

 

[DeezNuts]

That gives this error

Excel 2013

	A	B	C	D	E

<tbody>
[TD="align: center"]1[/TD]
[TD="align: center"]Aspect Ratio Calculator[/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]

[TD="align: center"]2[/TD]
[TD="align: center"]H1[/TD]
[TD="align: center"]=[/TD]
[TD="align: center"]H2[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]

[TD="align: center"]3[/TD]
[TD="align: center"]326[/TD]
[TD="align: center"][/TD]
[TD="align: center"]309[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]

[TD="align: center"]4[/TD]
[TD="align: center"]W1[/TD]
[TD="align: center"][/TD]
[TD="align: center"]W2[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]

[TD="align: center"]5[/TD]
[TD="align: center"]580[/TD]
[TD="align: center"][/TD]
[TD="align: center"]550[/TD]
[TD="align: right"][/TD]
[TD="align: center"]550[/TD]

</tbody>

Sheet1​

[TABLE="width: 85%"]
<tbody>[TR]
[TD]Worksheet Formulas[TABLE="width: 100%"]
<tbody>[TR="bgcolor: #DAE7F5"]
[TH]Cell[/TH]
[TH="align: left"]Formula[/TH]
[/TR]
[TR]
[TH="bgcolor: #DAE7F5"]E5[/TH]
[TD="align: left"]=A5/A3*C3[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
</tbody>[/TABLE]

No other macros or scripts and only that one formula on the page.







******************************
EDIT

Got it to work right

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
    Range("C5").Value = Range("E5").Value
  Application.EnableEvents = True
End Sub

Had to end the loop thank you Momentman

 

[Peter_SSs]

Anyone know what would cause this to happen?

The problem is that the Worksheet_Change event code is triggered when a change is made on the worksheet (naturally ). However, your code is making a change on the worksheet, which triggers the ws_Change code which makes a change to the worksheet which triggers the ws_Change code which ...

You need to disable/re-enable events

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Range("C5").Value = Range("E5").Value
    Application.EnableEvents = True
End Sub

 

[DeezNuts]

Thank you Peter_SSs I caught that and was editing the post when you posted Thank you both I appreciate it.