Gravar o nome do arquivo nas linhas do excel

Boa noite,

Alguém sabe como posso gravar nas planilhas (são várias com várias abas) o nome do arquivo e o nome das abas, usando um VBA no ACCESS?

Exemplo: arquivo1.xlsx com duas abas chamadas BP e DRE.
=> Gravar na célula "P1" em todas as linhas o nome da aba "BP", e na célula "Q1" em todas as linhas o nome "arquivo1".

Obs.: segue arquivo anexo.

Bom dia,

Achei essa expressão que grava o nome do arquivo na célula, porém, para ela funcionar tenho de entrar no arquivo e colar a fórmula da célula que pretendo indicar o nome do arquivo.

=EXT.TEXTO(CÉL("nome.arquivo");LOCALIZAR("[";CÉL("nome.arquivo");1)+1;(LOCALIZAR("]";CÉL("nome.arquivo");1))-(LOCALIZAR("[";CÉL("nome.arquivo");1)+1))

Depois encontrei esse código, porém, ele só funciona com o VBA da planilha.

Private Sub Workbook_Open()
Dim Extensão As String
Dim posição As Integer
posição = InStr(1, ActiveWorkbook.Name, ".", vbTextCompare)
Extensão = Mid(ActiveWorkbook.Name, posição + 1, Len(ActiveWorkbook.Name) - posição)
If Len(Extensão) = 3 Then
Range("A1:a50").Value = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
Else
Range("A1:a50").Value = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
End If
End Sub

Preciso que ele identifique a planilha e faça um loop em todas as planilhas e em todas as abas.