Faneblads navn

='Ark1'!A1

=MID(CELL("filename";A1);FIND("]";CELL("filename";A1))+1;255)

Eller evt. denne løsning

www.kronsell.net/smaamakroer.htm#aRK

De driller de links :-)

www.kronsell.net/Smaamakroer.htm#aRK

en lidt anden løsning kunne være:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("A1") = ActiveSheet.Name
End Sub

I #2 glemte jeg at sige, at filen skal gemmes før formlen virker.
jkrons - dit forslag er på den anden side ikke optimal, hvis arknavnet ændres.

Hans

dkhannknu --> Du har ret, men det kan den blive :-)

Function Arknavn()
    Application.Volatile
    Arknavn = ActiveSheet.Name
End Function

jkrons -> men det er den ikke endnu.

Prøv i en ny workbook med Sheet1 og Sheet2  og indeholdende din:

Function Arknavn()
    Application.Volatile
    Arknavn = ActiveSheet.Name
End Function

at indtaste:
=Arknavn() i Sheet1!A1
=Arknavn() i Sheet2!A1

Prøv herefter at gå tilbage og se, hvad der står i Sheet1!A1

Bedre, omend ikke fuldstændig skudsikker, er det at bruge:

Function Arknavn() As String
    Application.Volatile
    Arknavn = Application.Caller.Parent.Name
End Function

Den havde jeg overset.

Blot til info: ASAP utilities kan håndtere dette og andre ting "on the fly" (http://www.asap-utilities.com/)

l