• I haven't tested this, but how about something like:

    ...and SetToStr([Dim Date].[FSCL_YR].[FSCL_YR].currentmember) = "[Dim Date].[FSCL_YR].&[" + Format(now(), "yyyy") + "]"