makro fejler -

følgende makro virker fint når jeg tester den alene - men når jeg fletter Ark ind i andet regneark hvor der i forvejen er to ark, så går det galt- den læser forkert mappe så sti bliver forkert og makro derved giver fejl -
kan man omskrive følgende line
Set kunder = Workbooks.Open(Filename:=ActiveWorkbook.Path + "\" + "kunder.xls")
til noget manuelt ex C:\rapport\kunder

Makro
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

Dim checkj As Range
Dim i As Integer
Dim cell

Dim k_navn
Dim k_adr
Dim k_post
Dim k_tlf


If KeyCode = 13 Then

Application.ScreenUpdating = False

Set kunder = Workbooks.Open(Filename:=ActiveWorkbook.Path + "\" + "kunder.xls")
Windows("kunder.xls").Activate