Telling VBA to select a cell four columns to the right of a selection

[TM74]

I would like to write some VBA that when run would go the the cell 4 columns to the right of the current selected cell and change the value to zero. So if the VBA is run when cell A2 is selected, the VBA would enter 0 in cell E2.

Everything I try gives the cell a reference so it will always choose row 2 rather than the row that is currently selected when the VBA is run.

Can anyone please help?

 

[onlyadrafter]

Hello,

do you mean like this?

Sub copy_over()
    ActiveCell.Offset(0, 4).Value = 0
End Sub

 

[TM74]

Of course!!! I should have thought of the offset function!

Thanks a lot.