Adding a date to a cell

[CBG]

Hello,
How can I add a date to a cell?
I have tried
Worksheets("Sheet1").Range("A1").Value = Now
But I keep getting a subscript out of range error message.
Please help!
Thanks.
Consuelo

 

[Gord Dibben]

Consuelo

Perhaps you have no Sheet1 ?

Gord Dibben Excel MVP XL2002

 

[M. lane]

Click the cell you wish to contain the automatic date entry, type
=NOW()
or
=TODAY()
See which one works best for you.

 

[Tom Ogilvy]

Just a little addition/elaboration to Gordon's excellent advice:

Given your line of code, the only thing that could cause that message would
be if you don't have a sheet with a tab name of Sheet1. It might be Sheet
1 (with a space after sheet) or it could be sheet1, but contain one or more
spaces tacked on at the front or the back of the name. Try renaming the
sheet so you are sure it is named sheet1 with no spaces.