>>747
ActiveSheet.Shapes(Application.Caller).Name
あたりで英語の名前が取得できるはず