I've two excel vba workbooks. First, 'Formini1.xlsm' as source file. Second one, 'Tampil1.xlsm' as target file. Both files located in different folders. I've a task to connect source file into target file. Here's the location of each file:

* Target file: "C://project/tampil1.xlsm"
* Source file: "C://project/database/formini1.xlsm"

Here's the code (in same folder):

```
Private Sub CommandButton1_Click()
Dim RangeKriteria As Range, RangeCopyTo As Range, RangeTabel As Range

Set RangeTabel = Workbooks("formini1.xlsm").Sheets("Sheet3").[A1].CurrentRegion
Set RangeCopyTo = Workbooks("tampil1.xlsm").Sheets("Sheet2").[L1]
Set RangeKriteria = Workbooks("tampil1.xlsm").Sheets("Sheet2").[A1:I10]

With Workbooks("tampil1.xlsm").Sheets("Sheet2")
    .Cells.Clear
    .[A1:I1].Value = Workbooks("formini1.xlsm").Sheets("Sheet3").[A1:I1].Value
    .[A2].Value = "*" & TextBox1.Value
    .[B3].Value = "*" & TextBox1.Value
    RangeTabel.AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=RangeKriteria _
    , CopyToRange:=RangeCopyTo, _
        Unique:=False
End With    
End Sub

```

But the problem, I must make those files in different folder, so I change RangeTabel into this code:

```
Set RangeTabel = Workbooks("C://project/database/formini1.xlsm").Sheets("Sheet3").[A1].CurrentRegion

```

But it said error. I don't know why. Is there any idea so I could make subfolder path on Workbooks?

Thanks a lot