After Creating New Tab I Hit <Enter, How Do I Make it Go Immediately to a Given Cell?
 

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.

After Creating New Tab I Hit <Enter, How Do I Make it Go Immediat
 

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.

After Creating New Tab I Hit <Enter, How Do I Make it Go Immediately to a Given Cell?
 

Try this to copy the activesheet

Sub Test()
ActiveSheet.Copy after:=Worksheets(Worksheets.Count)

On Error Resume Next
ActiveSheet.Name = Format(Date, "dd-mmm-yyyy")
On Error GoTo 0
ActiveSheet.Range("C3").Select
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



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