ワークシートモジュールで、そのシートのシート名を求めるには、以下のようにMeのNameプロパティから取得します。 Private Sub Worksheet_Deactivate() Dim strSheetName As String strSheetName = Me.Name End Sub ActiveSheetのNameプロパティで取得ができ…