Sub セルを右に移動する()

    ActiveCell.Offset(0, 2).Select '

End Sub