Compile Error - Type Mismatch

Hi All,

I have workbook which is prompting the user to save a copy as...acting like a sort of template I guess. I have a routine which runs when the workbook opens to test whether the workbook name matches the default name, if it does then the user is prompted to save a copy, if not, it does nothing. I had this working fine in a test workbook, but when I copied the module over to the actual workbook I got a compile error: Type mismatch. The code is fails on is..

If MyName = "Forecast Template.xlsm" Then

Where MyName is defined as

Function MyName() As String
MyName = ThisWorkbook.Name
End Function

The debug highlights the "=" sign when the code is run. Can anyone help me please?

Note: I have also tried replacing the = sign with "Is".

Thank you

I Just cannot understand why it would work in one workbook, but when copied and the filename changed, it no longer works! Madness!

Thank you to anyone looking at this, but I solved it by using

If ThisWorkbook.Name= "Filename.xlsm" Then

Must have been something to do with the Myname Routine?