Weeepie,

Use FullName, not Path:

Dim Pad As String
Pad = ActiveWorkbook.FullName
ActiveWorkbook.Close SaveChanges:=False
Workbooks.Open Pad

As long as the activeworkbook is not the book with the code, that should
work well.

HTH,
Bernie
MS Excel MVP


"Weeepie" wrote in message
...
Hello,

I want to reopen a workbook trough VBA without saving.

But when I close then I lose my code and it does'nt continue.

I've tried this

Dim Pad As String
Pad = ActiveWorkbook.Path
ActiveWorkbook.Close SaveChanges:=False
Workbooks.Open Pad


Thx for helping me out

Weeepie