Sub Addsheet()
With ThisWorkbook
.Worksheets.Add(After:=.Worksheets( _
.Worksheets.Count)).Name = _
Format(Date, "yyyymmdd")
End With
ActiveSheet.Range("C3").Select
End Sub

--
Regards,
Tom Ogilvy


" wrote:

Every day I copy worksheets and rename them with the current date.
After I hit the <Enter key my cursor lands on what seem to be an
arbritrary spot on the worksheet. I would like it to default to Cell
C3 as the next action is to change the date in that cell.