Ejemplo This WorkBook aplicado a Creacion de New Sheet

Mediante la creación de eventos en el WorkBook podemos tener un archivo específico para cada necesidad del usuario. Por ejemplo: podemos programar eventos para la salida ,entrada al archivo o para este ejemplo en particular para la creación de una nueva hoja además mediante un cuadro de diálogo se interactúa con el Usuario preguntándole si envía el archivo a Gerencia.

Sintaxis

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Desea mandar el archivo a Gerencia"
End Sub

Private Sub Workbook_NewSheet(ByVal Sh As Object)
UserForm1.Show
End Sub

Private Sub CommandButton1_Click()
Nombre = TextBox1.Text
ActiveSheet.Name = Nombre
UserForm1.Hide
End Sub

Descripción

En el ejemplo adjunto se muestra de manera didáctica la secuencia de la aplicación  para la creación de una nueva hoja y la oportunidad de escoger su nombre simultáneamente, como se a continuación:

Ademas se recuerda al usuario si desea enviar el archivo a Gerencia:

Se Adjunta archivo:

Ejemplo del ThisWorkBook_aplicado a la creacion de NewSheet