This works in my locale. You will probably need to change the
IF() function  syntax to work with your number system.

In cell:
=IF(ActiveSheetName("CityBank"),1.23,1.75)

In module:
Function ActiveSheetName(Name As String)

ActiveSheetName = False
If Application.ActiveSheet.Name = Name Then ActiveSheetName = True

End Function

I do a bit of this all the time because some of my "clients" like to alter
the names of worksheets. Being in a multi language environment has it's


I reflect the name of the sheet  in cell  A1 so if the sheet is printed the
name is there as the user has altered it in nice big letters.

I don't think it's completely what you are looking for but maybe a pointer.

The formual I use is....

=TRIM(MID(CELL("filename",A1),(FIND("]",CELL("filename",A1))+1),50))

I'm not sure I see the purpose of such a function? You'd also need
to have write  some workbook or worksheet based events to trigger a
recalculation of the workbook as the active  sheet changes, since
changing the active worksheet doesn't automatically cause a
recalculation.

But, this should get you the active sheet  name at the time of any
recalculation (but "filename" only has a value if you've previously
saved the workbook):

=MID(CELL("filename"),(FIND("]",CELL("filename"))+1),50)

If you just want to return the sheet name fo the worksheet the
function is located in, you'd use:

=MID(CELL("filename",A1),(FIND("]",CELL("filename",A1))+1),50)