me pone error en esta parte

Workbooks.Open Filename:=in_path & "\" & tmp1

 Me pone error

Error 1004 en tiempo de ejecución

Anexo codigo completo ojala y me puedas ayudar

Sub auto_open()
Dim i, j As Integer
Dim ke, ka, kg, kc, kh, kw, kn, km, ks, kr, kt As Integer
Dim in_path, in_file, tmp, tmp1 As String
Dim dum(3) As String

On Error GoTo Template_Rename

in_path = ActiveWorkbook.Path
in_file = ActiveWorkbook.Name
tmp = "e-Plac Template.xls"
tmp1 = "e-Plac Template.src.xls"
Workbooks.Open Filename:=in_path & "\" & tmp
Sheets("Sheet1").Visible = True
Sheets("Sheet1").Select
If (Range("H1").Value = "" And Range("I1").Value = "" And _
(Range("H2").Value = "" And Range("I2").Value = "")) Then
    Windows(in_file).Activate
    Sheets("BG").Visible = True
    Sheets("BG").Select
    Columns("W:X").Select
    Selection.Copy
    Windows(tmp).Activate
    Sheets("Sheet1").Visible = True
    Sheets("Sheet1").Select
    Range("H1").Select
    ActiveSheet.Paste
Else
    Columns("H:I").Select
    Selection.Copy
    Windows(in_file).Activate
    Sheets("BG").Visible = True
    Sheets("BG").Select
    Range("W1").Select
    ActiveSheet.Paste
    Windows(tmp).Activate
End If
If (Cells(21, 30).Value = "" And Cells(21, 32).Value = "" And _
    Cells(21, 34).Value = "" And Cells(21, 36).Value = "") Then
    If (Cells(11, 13).Value <> "") Then
        ke = 21
        ka = 21
        kg = 21
        kc = 21
        kh = 21
        kw = 21
        kn = 21
        km = 21
        ks = 21
        kr = 21
        kt = 21
        i = 11
        Do Until (Cells(i, 13).Value = "")
            If (UCase(Cells(i, 13).Value) = "E") Then
                Cells(ke, 30).Value = Cells(i, 14).Value
                Cells(ke, 31).Value = Cells(i, 15).Value
                ke = ke + 1
            ElseIf (UCase(Cells(i, 13).Value) = "A") Then
                Cells(ka, 32).Value = Cells(i, 14).Value
                Cells(ka, 33).Value = Cells(i, 15).Value
                ka = ka + 1
            ElseIf (UCase(Cells(i, 13).Value) = "G") Then
                Cells(kg, 34).Value = Cells(i, 14).Value
                Cells(kg, 35).Value = Cells(i, 15).Value
                kg = kg + 1
            ElseIf (UCase(Cells(i, 13).Value) = "C") Then
                Cells(kc, 36).Value = Cells(i, 14).Value
                Cells(kc, 37).Value = Cells(i, 15).Value
                kc = kc + 1
            ElseIf (UCase(Cells(i, 13).Value) = "H") Then
                Cells(kh, 38).Value = Cells(i, 14).Value
                Cells(kh, 39).Value = Cells(i, 15).Value
                kh = kh + 1
            ElseIf (UCase(Cells(i, 13).Value) = "W") Then
                Cells(kw, 40).Value = Cells(i, 14).Value
                Cells(kw, 41).Value = Cells(i, 15).Value
                kw = kw + 1
            ElseIf (UCase(Cells(i, 13).Value) = "N") Then
                Cells(kn, 42).Value = Cells(i, 14).Value
                Cells(kn, 43).Value = Cells(i, 15).Value
                kn = kn + 1
            ElseIf (UCase(Cells(i, 13).Value) = "M") Then
                Cells(km, 44).Value = Cells(i, 14).Value
                Cells(km, 45).Value = Cells(i, 15).Value
                km = km + 1
            ElseIf (UCase(Cells(i, 13).Value) = "S") Then
                Cells(ks, 46).Value = Cells(i, 14).Value
                Cells(ks, 47).Value = Cells(i, 15).Value
                ks = ks + 1
            ElseIf (UCase(Cells(i, 13).Value) = "R") Then
                Cells(kr, 48).Value = Cells(i, 14).Value
                Cells(kr, 49).Value = Cells(i, 15).Value
                kr = kr + 1
            ElseIf (UCase(Cells(i, 13).Value) = "T") Then
                Cells(kt, 50).Value = Cells(i, 14).Value
                Cells(kt, 51).Value = Cells(i, 15).Value
                kt = kt + 1
            End If
            i = i + 1
        Loop
    End If
End If
Sheets("Sheet1").Visible = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("BG").Visible = False
Sheets("Main").Select
Exit Sub

Template_Rename:
Workbooks.Open Filename:=in_path & "\" & tmp1
ActiveWorkbook.SaveAs in_path & "\" & tmp
Resume
End Sub