Can I make this shorter?

[rutger]

Hey there,
I was wondering if there's a way to make this code shorter?

    Cells(Target.Row, Target.Column + 2).Value = Target.Value
    Cells(Target.Row, Target.Column + 4).Value = Target.Value
    Cells(Target.Row, Target.Column + 6).Value = Target.Value
    Cells(Target.Row, Target.Column + 8).Value = Target.Value
    Cells(Target.Row, Target.Column + 10).Value = Target.Value
    Cells(Target.Row, Target.Column + 12).Value = Target.Value
    Cells(Target.Row, Target.Column + 14).Value = Target.Value
    Cells(Target.Row, Target.Column + 16).Value = Target.Value
    Cells(Target.Row, Target.Column + 18).Value = Target.Value
    Cells(Target.Row, Target.Column + 20).Value = Target.Value
    Cells(Target.Row, Target.Column + 22).Value = Target.Value
    Cells(Target.Row, Target.Column + 24).Value = Target.Value
    Cells(Target.Row, Target.Column + 26).Value = Target.Value
    Cells(Target.Row, Target.Column + 28).Value = Target.Value
    Cells(Target.Row, Target.Column + 30).Value = Target.Value
    Cells(Target.Row, Target.Column + 32).Value = Target.Value
    Cells(Target.Row, Target.Column + 34).Value = Target.Value
    Cells(Target.Row, Target.Column + 36).Value = Target.Value
    Cells(Target.Row, Target.Column + 38).Value = Target.Value

something like:

Cells(Target.Row, Target.Column +2, +4, etc.).value = Target.Value

Thanks in advance,
Rutger

 

[Andywiz]

try this code:

Sub Loop_Step()

For n = 2 to 38 Step 2
  Cells(Target.Row, Target.Column + n).Value = Target.Value
Next n

End Sub

Hope this helps some,
Andy

 

[rutger]

Hey there Andy,

Thanks for the quick reply.
This does exactly what i had in mind.
Thanks again

Greetz,
Rutger