Here is the code that I have so far to do what I have described.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sDate As Variant
oldSheet$ = ActiveSheet.Name
sDate = Range("D2").Text
Filename =
"************************************************* ********"

If Target.Address = "$D$2" Then
Sheets.Add(After:=Worksheets(Worksheets.Count - 2),
Type:=Filename).Name = "DOR " + sDate
End If
Sheets(oldSheet$).Activate
End Sub



JMay wrote:
You will get a better answer if you show your existing code;


"rbiggs" wrote in message
ps.com:

I have a worksheet that when a user enters the date it creates a new
worksheet. I need to have it so when they input additional information
on that page it does to that newly created worksheet. How can I make
this happen?