Auto copy cell x columns to the right after selection request from inputbox

[vdongen]

I am looking for command button code that with the Inputbox asks the user to select a cell and then this cell is copied 20 columns further to the right.

[pike]

evening vdongen
Try this code

Set srng = Application.InputBox(prompt:="Select Task To Get copy Status", Left:=30, Top:=80, Type:=8)
With srng
.Offset(0, 20).Value = srng.Value
End With