create a new workbook

[asyamonique]

Dim frm As Long
With Sheets("0800")
If .Cells(1, 1).Value = "" Then
frm = 1
Else
frm = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
.Cells(frm, 1) = TextBox1.Value
.Cells(frm, 13) = TextBox2.Value
.Cells(frm, 14) = TextBox3.Value
.Cells(frm, 17) = ComboBox1.Value
End Wit

How can be create a new workbook with that code ranges and the same sheet name as well?

 

[texasalynn]

to assign a sheet name using a cell value



ActiveSheet.Name = Range("B3").Value


</PRE>I don't understand you question about the creating sheets

 

[asyamonique]

to assign a sheet name using a cell value



ActiveSheet.Name = Range("B3").Value




</PRE>I don't understand you question about the creating sheets

I do not want to create a sheet.The master file already has that, nd that worksheet will be copied to new fresh workbook file with data which created by the attached code.
Its like it will be continious of that code, after the new data entries the worksheet'0800' will be copy in new workbook with same sheet name..

 

[texasalynn]

is this what you mean?

 Range("a1:o25").Select
    Selection.Copy
    Workbooks.Add
    Worksheets("Sheet1").Activate 'sheet1 of new work book
    Worksheets("Sheet1").Paste
    Range("A1").Activate
ActiveSheet.Name = "0800"