The ThisDrawing.PaperSpace.InsertBlock in VBA

[Anonymous]

Hi

I am have a problem with the attached VBA the code works ok the first time the next time that it runs there is a runtime error "Run-time error '-2145386445(80200033)'; Filer error. if you hit debug the following line of code is highlighted

Set newBlockObj = ThisDrawing.PaperSpace.InsertBlock(insertionPoint, "C:\cad\ENP_Custom\ENP-AutoCAD\PW_TITLE.dwg", 1#, 1#, 1#, 0)

If you close AutoCAD between drawings there is no problem. This line is as found in the help files except that I have hard coded the path to the block that I would like to insert?