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
1	Aspect Ratio Calculator
2	H1	=	H2
3	326		309
4	W1		W2
5	580		550		550

<tbody>
</tbody>

Sheet1​

Worksheet Formulas Cell Formula E5 =A5/A3*C3 <tbody> </tbody>

<tbody>
</tbody>

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.