'* This is not working
'* Function getListOfSheetsW() As String
Function getListOfSheetsW() As Variant
    Dim i As Integer
    Dim sheetNames() As String
    ReDim sheetNames(1 To Sheets.Count)

    For i = 1 To Sheets.Count
        sheetNames(i) = Sheets(i).name
    Next i

    getListOfSheetsW = sheetNames
End Function

Function IsInArray(ByVal needle As String, haystack() As String) As Boolean
    Dim element As Variant

    For Each element In haystack
        If element = needle Then
            IsInArray = True
            Exit Function
        End If
    Next element

    IsInArray = False
End Function

Sub CreateNewSheet(ByVal dstWSheetName As String)
    Dim srcWSheetName As String
    Dim sheetNames() As String

    sheetNames = getListOfSheetsW()
    Dim sheetCount As Integer

    If IsInArray(dstWSheetName, sheetNames) Then
        MsgBox "Sheet with following name: " & dstWSheetName & " already exists"
    Else
        srcWSheetName = ActiveSheet.name
        sheetCount    = Sheets.Count

        '* CREATE NEW SHEET
        '* Worksheets(dstWsheetName).Delete
        Sheets.Add.name = dstWSheetName
        '* Q: why 6 instead of 5
        '* Worksheets("Test").Move after:=Worksheets("Sheet5")
        Worksheets(dstWSheetName).Move After: = Worksheets(sheetCount + 1)

        '* SWITCH TO SRC SHEET
        Worksheets(srcWSheetName).Activate
    End If
End Sub

Sub CreateNewSheetUsingExplicitTypes()
    Call CreateNewSheet("test")
End Sub