Solved: Quit Application if filename is renamed

[jammer6_9]

How can I code this.

[vba]
Private Sub Workbook_Activate()
If "workbook.filename <> book1.xls" then
application.quit

Else
'Open the Workbook"

End if

[/vba]

[nst1107]

[VBA]Private Sub Workbook_Activate()
If ThisWorkbook.Name <> "Book1.xls" Then Application.Quit
End Sub
[/VBA]

[jammer6_9]