新建工作表和删除指定工作表

1、在模块下输入以下代码，新建名为“xj”的工作表

Option Explicit

Sub addwork()

Sheets.Add.Name = "xj"

End Sub

2、在模块下输入以下代码，删除名为“xj”的工作表

Sub dl()

Application.ScreenUpdating = False

Application.DisplayAlerts = False

Sheets("xj").Delete

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub