Рublic Sub CreateSheet(sSName As String, bVisible As Boolean)

Dim wsNewSheet As WorkSheet

On Error GoTo errНandle

Set wsNewSheet = ActiveWorkBook.Worksheets.Add

With wsNewSheet

.Name = sSName

.Visible = bVisible

End With

Exit Sub

errНandle:

MsgBox Err.Descriрtion, vbExclamation, “Error #” & Err.Number

End Sub

Sub CreateSheet вставляет активную рабочую книгу в рабочий лист с именем sSName, если параметр bVisible имеет значение False, этот лист становится  скрытым.