Expand range help

I use the following to keep cells between two sheets in sync:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lrow As Long
On Error GoTo ws_exit:
Lrow = Cells(Rows.Count, 3).End(xlUp).Row
If Target.Count > 1 Then GoTo ws_exit
If Intersect(Target, Range("C3:C" & Lrow)) Is Nothing Then GoTo ws_exit
Application.EnableEvents = False
Sheets(2).Range("B18").Offset(Target.Row, 0) = Target.Value
ws_exit:
Application.EnableEvents = True
End Sub

What I would like to do is expand its range to include source columns E and
F, skipping D and include target columns C and D


--
David

I worked out the first part:
If Intersect(Target, Range("C3:C" & Lrow, "E3:F" & Lrow)) Is Nothing Then
GoTo ws_exit

Still can't get the second, presumably because there is one less column on
sheet 2. I can't change that due to other routines in my project.

--
David

David < wrote

> I use the following to keep cells between two sheets in sync:
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim Lrow As Long
> On Error GoTo ws_exit:
> Lrow = Cells(Rows.Count, 3).End(xlUp).Row
> If Target.Count > 1 Then GoTo ws_exit
> If Intersect(Target, Range("C3:C" & Lrow)) Is Nothing Then GoTo
> ws_exit Application.EnableEvents = False
> Sheets(2).Range("B18").Offset(Target.Row, 0) = Target.Value
> ws_exit:
> Application.EnableEvents = True
> End Sub
>
> What I would like to do is expand its range to include source columns
> E and F, skipping D and include target columns C and D
>
>

Got it:
If Target.Column > 3 Then
Sheets(2).Range("B18").Offset(Target.Row, Target.Column - 4) = Target.Value
Else
Sheets(2).Range("B18").Offset(Target.Row, 0) = Target.Value
End If

--
David

David < wrote

> Still can't get the second, presumably because there is one less
> column on sheet 2. I can't change that due to other routines in my
> project.