cell change code

[Jammydan]

Hi

Please can somebody help me

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
'** only look at single cell changes
If Target.Count > 1 Then Exit Sub
Set rng = Range("L5:L500")
'** only look at that range
If Intersect(Target, rng) Is Nothing Then Exit Sub
Target.Offset(0, -10) = Target(0, 10)
End Sub

I am trying to change cell B5 to L5 if L5 changes, but B5 just changes to blank?

Thanks

 

[VoG]

Try

Target.Offset(0, -10).Value = Target.Value

 

[Jammydan]

Thank you Peter, much appreciated

 

[Domenic]

Try...

Target.Offset(,-10).Value = Target.Value