Need help with Order sheet in Excel

[rneel]

Hi folks!

So here's my order sheet that I'm working with. What I need to happen is that our salesmen will enter in a Dealer Name in the top. At that point I'd like a new worksheet in the workbook to be created that's an exact copy of the sheet they started with and titled the same as the Dealer Name (formatting and all). Then they'd be able to fill in the rest of the information in the order form. Any ideas on how I can make this work? This is only the first step in a complicated process but I figured I'd get this step working first then come back if I needed more help with the rest.

Thanks so much!

Order Sheet

[LeoTaxi]

Think this can

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$7" And Target <> vbNullString Then
    Dim ws1 As Worksheet, naam As String
    Set ws1 = ActiveSheet
    naam = Range("G7")
    ActiveSheet.Copy After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = naam
    ws1.Range("G7").ClearContents
    End If
End Sub

Kind regards
Leo

[newdoverman]

Why not use proper data entry? That is each column represents a field and has a header. Each row is one record.

This format is the easiest to work with and can produce many different "report" type results rather than entering into a report type form which is difficult to gather statistics from or to produce other reports.

The format would be something like the following which would allow the creation of many different reports.

	A	B	C	D	E	F	G	H
1	Date	PO Number	Company	Item Series	Retail	Net	Quantity	Map
2
3

[rneel]

Unfortunately I need to keep the format that was given to me. Trust me, if I was designing the workbook it would be a lot more like this.