Function Add_New_Wbk(xPath As String, xFile As String, xData As Range) As String
'
    On Error GoTo xErr
    'doplnene kopirovanie - ver 2
    xData.Copy
    
    Workbooks.Add
    
    'ak chces iba data - od pozicie A1
    'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    '    :=False, Transpose:=False
    
    'ak chces aj vzorce - !!! nesmu odkazovať na iné ako kopírované oblasti
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    ' vsetko, vrátane vzorcov:  ... Paste:=xlPasteAll ...
    ' len vzorce             :  ... Paste:=xlPasteFormulas ...
    
    'ak chces aj formaty
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    
    Application.DisplayAlerts = False 'prepise bez opytania, ak uz je
    ActiveWorkbook.SaveAs Filename:=xPath & xFile
    Application.DisplayAlerts = True
    
    Add_New_Wbk = ""
    Exit Function

xErr:
    Application.DisplayAlerts = True
    Add_New_Wbk = Err.Description

End Function