Can someone tell me what is wrong with this code? My attempt is what Cell C6
equals a specific object name; a range of other cells will equal the value of
another cell. I can get it to work; this issue is that is only works once.
When the program runs, it works as plan but locks up excel and I end up
having to go through "Ctrl+Alt+Delete" in order to have access to my computer
again.

Here is my code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If Range("C6") = "Object Name" Then
Range("H6").Value = Range(€œQ6€�)
Range("L6").Value = Range(€œR6€�)
Range("C8").Value = Range(€œS6€�)
Range("H8").Value = Range(€œT6€�)
Range("L8").Value = Range(€œU6€�)
Range("C10").Value = Range(€œV6€�)
Range("H10").Value = Range(€œW6€�)
Else
Range("H6").Value = ""
Range("L6").Value = ""
Range("C8").Value = ""
Range("H8").Value = ""
Range("L8").Value = ""
Range("C10").Value = ""
Range("H10").Value = ""
End If
End With
End Sub