one way:

ActiveCell.Value = Date
ActiveCell.Offset(0, 1).Select

In article ,
"George Gee" wrote:

The following macro puts the date in the active cell:

ActiveCell.FormulaR1C1 = "1/17/2005"
Range("A2").Select
End Sub

Question: How do I edit this so that the cell to the right of
the active cell is selected, when the macro is run?

Thanks for your patience!