Как задать имя листу, который будет вставлен?

'
' Sub CreateSheet
' Вставляет активную рабочую книгу в рабочий лист с именем sSName.
' Note: Если параметр bVisible имеет значение False, этот лист становится скрытым.
'
Р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