@raibarong ...

Gunakan formula saja. Di sel A1 masukkan formula berikut:

=MID(CELL("filename");SEARCH("]";CELL("filename"))+1;100)

Agar sel A1 dapat diupadte secara otomatis, pada modul ThisWorkbook, tambahkan script berikut:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.Calculate
End Sub

Demikian.

@raibarong ...

Setiap Worksheet khan memiliki Class Module masing-masing, yang biasanya berisi prosedur-prosedur kejadian yang dapat ditimpa (Override Events), misalkan Worksheet_Activate, Worksheet_Deactivate dan sebagainya.

Untuk hal yang ditanyakan (termasuk pertanyaan sebelumnya), bisa saja disusun ke dalam salah satu Class Module dari sebuah Worksheet (dalam Event Procedure) tersebut, misalkan,

Private Sub Worksheet_Activate()
    Me.Range("A1").Value = Me.Name
    Application.Calculation = xlCalculationManual
End Sub

Private Sub Worksheet_Deactivate()
    Application.Calculation = xlCalculationAutomatic
End Sub

Demikian.