Hi,

I have the following macro which is not working completely as
required.

I want the macro to look into a range C18 to C45 and push the content
of the cell into C13. Incase any other cell is clicked, the macro
should not perform any action.

However the below macro selects all the cells on the sheet when click
instead of the cells within the C18:C45 range.

Can anyone advise improvement to the below macro

Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Set rng = Range("C18:C45")
For Each cell In rng
Range("c13").Value = ActiveCell.Value
Next
End Sub