Verify name of active workbook. If incorrect, message box and then close without saving

[jase71ds]

Hi all.
I'll say in advance that I always appreciate your time and help. Today is no different, so thanks!

I have a templated macro file named: "VTA Report.xltm".
The user needs to right-mouse-click and select "Open" from the contextual menu.
So...
As soon as they try to run the macros (assigned to a button) I'd like for Excel to check and see if the name of the active workbook is "VTA Reports.xltm". If they opened it by merely double-clicking the name will be "VTA Reports1.xlxm"

So, Active Workbook should = "VTA Reports.xltm"
If not, then Msg Box("yada, yada")
Then quit the file without saving: Application.Quit

Thanks for any help.
Jase.

 

[VoG]

Try

If ActiveWorkbook.Name <> "VTA Reports.xltm" Then
    MsgBox "Wrong file", vbexclanation
    ActiveWorkbook.Close False
    Application.Quit
End If

 

[jase71ds]

Great. Thanks so much. I'm going to try the code at lunchtime.

 

[VoG]

Just spotted a typo

If ActiveWorkbook.Name <> "VTA Reports.xltm" Then
    MsgBox "Wrong file", vbExclamation
    ActiveWorkbook.Close False
    Application.Quit
End If

 

[jase71ds]

Okay, I tried it. It works great!
Much appreciated!!!