Check file name in VBA

[StewartS]

I have a template file which has several macros in. At present I have a short bit of code at the start of the module to check the file name is not the template file. This is to prevent users overwriting the template as each of the modules as a save at the end.

WKB = ActiveWorkbook.name

If WKB = "Template 17-18.xlsm" Then

MsgBox ("Please save journal as a different file before proceeding")
Exit Sub

End If

My question is would this work as a function and exit the routine if required.

Thanks

StewartS

 

[StewartS]

I've manged to solve this

I added a function to test the file name which is called in the indivdual macros and added just the message and and exit sub routine into the macros

Function testfile()
Wkb = ActiveWorkbook.Name
If Wkb = "Template.xlsm" Then
testfile = True
End If
End Function

Sub test2()

If testfile = True Then
MsgBox ("Please save journal as a different file before proceeding")
Exit Sub
End If

Code.....

End sub

This means the workbook name is changed in one place when it is renamed each year.

StewartS