Ændring i VBA fsv. stier og placering

Hej

Jeg har arvet "et stykke" VBA, som jeg ikke er i stand til at forstå, men som virker fint med en enkelt undtagelse. VBA'en virker kun, når Excel-filen ligger på mit eget drev. Jeg vil gerne flytte Excel-filen til et andet sted i firmaets fil-struktur, og desuden skal Notepad-filen ("Ekstrapriser.txt") ligge et andet sted end Excel-filen. Kan nogen hjælpe?


Sub CreatePriceFile()
Filename = "Ekstrapriser.txt"
PriceFilePath = ThisWorkbook.Path & Filename

   
Set fs = CreateObject("Scripting.FileSystemObject")
Set NewFile = fs.CreateTextFile(PriceFilePath, True)

With ThisWorkbook.Worksheets("Priser")
    .Select
    SecIDRow = 4
    Row# = 6
    SecIDCmn = 2
   
    Do While .Cells(SecIDRow, SecIDCmn) <> ""
        .Cells(Row#, SecIDCmn).Select
        SecId = .Cells(SecIDRow, SecIDCmn)
'LOOP THROUGH ALL ROWS
        Do While IsEmpty(Selection) = False
            SecId = .Cells(SecIDRow, SecIDCmn)
                SecPrice = Replace(Selection, ",", ".")
                PriceDate = Format(Selection.Offset(0, -1).Value, "yyyymmdd")
                PriceString = SecId & Chr(32) & SecPrice & Chr(32) & PriceDate
                NewFile.WriteLine PriceString
        PriceString = vbNullString
        Selection.Offset(1, 0).Select
        Loop
    SecIDCmn = SecIDCmn + 2
    Loop
End With
'CLOSE PRICE FILE
NewFile.Close
End Sub