Workbooks.Open fail
s3 = Dir(fail)

Workbooks(s3).Activate

Run-time error  1004 :
Method Active of object Woorkbook failed

Sub FormatTables(fail As String)
Dim papka, pdir, s4 As String
Dim d_month As Variant
Dim s3 As Workbook



pdir = ThisWorkbook.Path
d_month = ThisWorkbook.Sheets("1").Cells( 1 ,  3 ).Value
papka = ThisWorkbook.Sheets("1").Cells( 1 ,  1 ).Value
Workbooks.Open fail
Set s3 = Workbooks.Open(fail)
's3 = Dir(fail)
'Workbooks(s3).Open
'Windows(s3).Activate
s3.Activate
Set s3 = Nothing
'Workbooks(s3).Activate
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("ДатаОтчета")
        .Orientation = xlPageField
        .Position =  1 
    End With
'    ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("ДатаОтчета"). _
 '       CurrentPage = "01/10/2010"
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("НаименТовара")
        .Orientation = xlRowField
        .Position =  1 
    End With
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Месторасп")
        .Orientation = xlColumnField
        .Position =  1 
    End With
    ActiveSheet.PivotTables("СводнаяТаблица1").AddDataField ActiveSheet.PivotTables _
        ("СводнаяТаблица1").PivotFields("Количество"), "Количество по полю Количество" _
        , xlCount
    Range("B6").Select
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields( _
        "Количество по полю Количество")
        .Caption = "Сумма по полю Количество"
        .Function = xlSum
    End With
    Cells.Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B5").Select
    ActiveWindow.FreezePanes = True
    Range("B4:AB4").Select
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation =  90 
        .AddIndent = False
        .IndentLevel =  0 
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Columns("AA:AA").Select
    Selection.Delete Shift:=xlToLeft
    Rows("5:5").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$5:$AB$144").AutoFilter Field:= 27 , Criteria1:="="
    Rows("8:8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.Range("$A$5:$AB$115").AutoFilter Field:= 27 

    Cells.Select
    Cells.EntireColumn.AutoFit
If fail = pdir & "\" & d_month & "\" & papka & "\КХ\Svod_kh.xls" Then
s4 = pdir & "\" & d_month & "\" & papka & "\КХ\свод по препаратам.xls"
Else: s4 = pdir & "\" & d_month & "\" & papka & "\КФ\свод по препаратам.xls"
End If
If Dir(s4) <> "" Then Kill s4
    ActiveWorkbook.SaveAs Filename:= _
        s4 _
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWorkbook.Close
    'Workbooks(s3).Close savechanges:=False
    s3.Close savechanges:=False

End Sub