Private Sub Cmd_NewSheet_Click()
Dim ws as Worksheet
Load Frm_PStartDate
Frm_PStartDate.Show
set ws = Worksheets.Add(after:=Worksheets("Start"))
ws.Range("A1").Value = Txt_PStartDate
End Sub

--
Regards,
Tom Ogilvy


"S. S." wrote in message
...
I currently have a button that, when clicked, will add a
new sheet to the workbook. It will also open a form with
a text box. The intent is to have the user enter text
into the text box and have it appear in cell A1 of the new
sheet. (and eventually have that value become the name of
the sheet). This does not seem to be working correctly.

Here is what I have so far:

Private Sub Cmd_NewSheet_Click()
Load Frm_PStartDate
Frm_PStartDate.Show
Worksheets.Add.Move after:=Worksheets("Start")
Worksheets(2).Range("A1").Value = Txt_PStartDate
End Sub

Private Sub Cmd_Ok1_Click()
Dim Pdate As String
Pdate = Txt_PStartDate.Value
End Sub

Any help is appreciated.

Thanks

S.