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.

--
Regards,
Tom Ogilvy

CBG wrote in message
...
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