Aktif çalışma kitabının ismini veren VBA kodudur.
Option Explicit Sub AktifCalismaKitabininIsminiOgren() MsgBox ActiveWorkbook.Name End Sub