Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Hi. I've done some hunting around and reading and came up with the
following code that creates a new blank sheet and names it via a user form, but I can't work out how to do the same thing if I want to use a formatted template worksheet. Please help! Sample code I've come up with so far: 'Create a new blank worksheet 'Name the worksheet by entering the employee name and number 'in the appropriate boxes 'Clicking OK will transfer the name to the worksheet tab Private Sub cbNewEmpSheetNameFormOK_Click() Dim NewSheet As Worksheet On Error Resume Next Set NewSheet = Worksheets(tbxNewEmpSheetNameFormName.Text & "-" _ & tbxNewEmpSheetNameFormNo.Text) If Err 0 Or NewSheet Is Nothing Then Worksheets.Add befo=Worksheets(Worksheets.Count) ActiveSheet.Name = tbxNewEmpSheetNameFormName.Text & "-" _ & tbxNewEmpSheetNameFormNo.Text Worksheets(2).Select 'The sheet is checked to ensure that it's not a duplicate of an already existing sheet Else Beep MsgBox "Sheet already exists!" End If Unload Me End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Creating a "Next" button to move the user to the next sheet | Excel Discussion (Misc queries) | |||
A "form" for feeding an Excel Sheet? | Excel Discussion (Misc queries) | |||
Prevent user from inserting sheet via "CTRL-F11" | Excel Programming | |||
Naming cell ranges, copying formulas for a range & nesting "IF" fu | Excel Discussion (Misc queries) | |||
Tab order with "enter" key on a sheet form | Excel Programming |