Need current Filename for macro application command

[Soemd]

I made an ActiveX button to run a macro that alters more than solely the sheet it was created upon (I'm assuming that was the initial issue) it works great now, but the reference to run is set to the filename. Every time I save it as a new revision I have to edit the code.

    Application.Run "'Density Log REV.12.xls'!ThisWorkbook.dbCREATEtestable"

Is there a way to set the filename to current in VBA without referencing a cell with

=MID(CELL("filename"),SEARCH("[",CELL("filename"))+1, SEARCH("]",CELL("filename"))-SEARCH("[",CELL("filename"))-1)

Thank you in advance!



Wow,
Figured it out shortly after posting.

    Application.Run "'ThisWorkbook.dbCREATEtestable"

take out the reference!

[arlu1201]

Thank you for posting the solution.

In future, you can post the solution as post 2 of your thread, so others can easily identify the question from the answer.

[Soemd]

10-4 Arlu1201!

Wow,
Figured it out shortly after posting.

    Application.Run "'ThisWorkbook.dbCREATEtestable"

take out the reference!