Interesantno, ali nisam našao funkciju koja to radi.

Skup Excelovih funkcija možeš i sam proširiti pa evo jednostavne funkcije koja bi to radila:

Function SheetName(Optional Ref)
' Returns name of current sheet
If IsMissing(Ref) Then
Set Ref = ActiveCell
End If
SheetName = Ref.Worksheet.Name
End Function

Da započneš unos funkcije Alt+F11, pa izaberi Modul iz menija Insert i unesi gore navedeno.

Naravno da bi ovo radilo nivo sigurnosti mora se smanjiti na medium, a najbolje je potpisati makro da ne bi prilikom otvaranja stalno postavljao pitanje (vidi u helpu temu Add a digital signature to a file or macro project)

Ako želiš da ti ova funkcija bude raspoloživa u svakoj Excel radnoj svesci treba je uneti u personal.xls

Probao sam, radi bas kako treba.
Zahvaljujem,

Rade.